Information générale
Titre:
Help - Combo values disappear...
In a Form I have 3 combos cboLoteamento, cboQuadra, cboLote where cboQuadra depends on a value selected in cboLoteamento and cboLote depends on value selected on cboQuadra.
cboLoteamento->cboQuadra->cboLote
The "properties" of combo1 are(cboLoteamento):
cboLoteamento.BOUNDCOLUMN = 2
cboLoteamento.ROWSOURCETYPE = 3
cboLoteamento.ROWSOURCE = "SELECT nome, codigo FROM loteamentos ORDER BY nome ;
INTO CURSOR cur_loteamentos"
The "properties" of combo2 are(cboQuadra):
cboQuadra.BOUNDCOLUMN = 2
cboQuadra.ROWSOURCETYPE = 3
cboQuadra.ROWSOURCE = "SELECT nome_num, codigo FROM quadras WHERE ;
cod_loteamento = ?cCBO1_Value order by nome_num INTO CURSOR cur_quadras"
The "properties" of combo3 are(cboLote):
cboLote.BOUNDCOLUMN = 2
cboLote.ROWSOURCETYPE = 3
cboLote.ROWSOURCE = "SELECT numero, codigo FROM lotes WHERE ;
lotes.STATUS stat_venda AND cod_quadra = ?cCBO2_Value ;
order by numero INTO CURSOR cur_lotes
In the InterActiveChange of Combo1:
DODEFAULT()
LOCAL cCBO1_Value, cbo1
SET STEP ON
cbo1 = THIS.VALUE
WITH THISFORM.cboQuadra
.REQUERY()
.LISTINDEX = 0
ENDWITH
THISFORM.cCBO1_Value = THIS.DISPLAYVALUE(1)
In the InterActiveChange of Combo2:
DODEFAULT()
LOCAL cCBO2_Value, cbo2
cbo2 = THIS.VALUE
WITH THISFORM.cboLote
.REQUERY()
.LISTINDEX = 0
ENDWITH
THISFORM.cCBO2_Value = THIS.DISPLAYVALUE(1)
When I ADD new record and select the values of the combos and save it the combo shows the values added, but if I move the pointer with First, Next, Last, etc... the 2° and 3° combo doesnt show the values more, all other objects keep showing the right values.
To move the pointer I USE SKIP, SKIP -1, GO TOP, GO BOTTOM and call the method valor_combos that is below:
LOCAL cCBO1_Value, cCBO2_Value
cCBO1_Value = THISFORM.cod_lote
cCBO2_Value = THISFORM.cod_quadra
WITH THISFORM
.cboQuadra.ROWSOURCETYPE = 3
.cboQuadra.ROWSOURCE = "SELECT nome_num, codigo FROM quadras ;
cod_loteamento = ?cCBO1_Value ;
ORDER BY nome_num INTO CURSOR cur_quadras"
.cboLote.ROWSOURCETYPE = 3
.cboLote.ROWSOURCE = "SELECT numero, codigo FROM lotes ;
WHERE lotes.STATUS = stat_venda AND cod_quadra = ?cCBO2_Value ;
ORDER BY numero INTO CURSOR cur_lotes"
ENDWITH
THISFORM.REFRESH
If I start the form and move the pointer it works fine, but if I add a NEW record, the values of the the 2° and 3° combo disappear, but all other objects shows the right value.
Could someone help me please ?
TIA
Peter
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement