Information générale
Catégorie:
Gestionnaire d'écran & Écrans
I couldn't get it to work that way. But the code below works.
Ria
ComboboxB - RowsourceType = 1(Value)
ComboBoxA - Interactive Change
thisform.comboboxB.clear
do case
case this.text = "A"
select TableA
go top
do while not eof()
thisform.comboboxB.additem(TableA.Field1)
skip 1
enddo
case this.text = "B"
select TableA
go top
do while not eof()
thisform.comboboxB.additem(TableB.Field1)
skip 1
enddo
endcase
Précédent
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