thisform.cbo1 = ... ... ... cod_loteamento = thisform.cbo1Or you can use cursors cur_quadras and cur_lotes you already created
WITH THISFORM .cboQuadra.ROWSOURCE = "cur_quadras" .cboQuadra.ROWSOURCETYPE = 2 && alias .cboLote.ROWSOURCE = "cur_lotes" .cboLote.ROWSOURCETYPE = 2 ENDWITH>I have 3 combos in a form (cbo1, cbo2, cbo3)the second combo cbo2 value depends ond the value chossen in cbo1 and the same happends with cbo3.
* Get value of combo1 to update cbo2 >SELECT("v_clientes_") >cbo1 = v_clientes_.loteamento >SELECT nome_num, codigo FROM quadras WHERE DELETED() <> .T. ; >AND cod_loteamento = cbo1 ORDER BY nome_num INTO CURSOR cur_quadras > >* Get value of combo2 to update cbo3 >SELECT("v_clientes_") >cbo2 = v_clientes_.quadra >old_area = SELECT() > >SELECT numero, codigo FROM lotes WHERE DELETED() <> .T. ; >AND cod_quadra = cbo2 ORDER BY numero INTO CURSOR cur_lotes > >WITH THISFORM > .cboQuadra.ROWSOURCE = "SELECT nome_num, codigo FROM quadras ; > WHERE DELETED() <> .T. AND cod_loteamento = cbo1 ; > order by nome_num INTO CURSOR cur_quadras" > .cboQuadra.ROWSOURCETYPE = 3 > .cboLote.ROWSOURCE = "SELECT numero, codigo FROM lotes ; > WHERE lotes.Status = stat_venda AND DELETED() <> .T. ; > AND cod_quadra = cbo2 order by numero INTO CURSOR cur_lotes" > .cboLote.ROWSOURCETYPE = 3 >ENDWITH >SELECT("v_clientes_")>