buon giorno a tutti,
ho un form con una combobox che all'apertura viene popolata con un dato proveniente dal database( ps: select nel form open)
dopo cio attivando il click della combo ho necessita di accodare al dato precedente
l'elenco della tabella interessata.io l'eseguo in questo modo:
PUBLIC SUB Form_Open() result = MGlobal.db.Exec("select record from tabella where record ='mio_dato'")
FOR EACH result combobox.add(result!mio_dato)
NEXT
END
PUBLIC SUB combobox_Click()
combobox.Clear
result = MGlobal.db.Exec("select miei_dati from tabella ")
FOR EACH result
combobox.add(result!miei_dati)
NEXT
END
Cosi non funziona
Se metto lo stesso codice che ho messo in combobox_click in un button è ok
Saluti.................
Se ho capito bene la tua richiesta, come ti ha detto md9327 sicuramente il codice che hai postato non puo' darti il risultato che tu ti aspetti, prova in questo modo, ho fatto delle prove, ripeto, posto che abbia capito bene, dovrebbe risolvere il tuo problema:
PRIVATE xResult AS Result
PUBLIC SUB Form_Activate()
DIM Result AS Result
Load_combo
ComboBox1_Click
Result = conn.db.Exec("SELECT record FROM tabella WHERE record ='mio_dato'")
ComboBox1.Text = Result!mio_dato
END
PUBLIC SUB Load_combo()
xResult = conn.db.Exec("SELECT tutti_dati FROM tabella")
FOR EACH xResult
ComboBox1.Add(xResult!tutti_dati)
NEXT
END
PUBLIC SUB ComboBox1_Click()
xResult.MoveFirst
xResult.MoveTo(ComboBox1.Index)
END
Il codice inserito nella ComboBox1_Click ti può essere utile se per esempio devi associare il dato selezionato nella Combo ad una variabile o altro, altrimenti puoi ometterlo.