Originariamente inviato da Frankleen
Con questo codice visualizzo nella tendina tutti i record per ciascun campo...
Ora devo trovare il modo di inserire il tuo filtro e soprattutto devo riuscire a visualizzare SOLO UN tipo di record non uguale per combo... ad esempio tra i record Operator ho due Operator05, un Operator03 e 2 Operator02, nella mia combo devono apparire un Operator05, un Operator03 e un Operator02.
Fatto questo è tutto finito... il filtro c'è (non so ancora se funzioni, ma non ne dubito), manca la visualizzazione di un solo tipo di record non uguale per combo.
Frankleen
prendiamo proprio il campo Operator come esempio; ti suggerisco di staccarti dagli oggetti Data, e usare invece i Recordset di ADO... sono molto più semplici secondo me e molto più potenti.
Ti faccio un esempio di codice per riempire la combo cmb_Operator:
codice:
Sub Form_Load()
CaricaCombo
End Sub
Sub CaricaCombo()
Dim rsRs As New ADODB.Recordset
Dim cnConn As New ADODB.Connection
'imposti la tua stringa di connessione e la apri
cnConn.ConnectionString = ""
cnConn.Open
Dim strSql As String, intI Is Integer
strSql = "SELECT DISTINCT Operator FROM Test ORDER BY Operator"
rsRs.Open strSql, cnConn, 1, 3
For intI = 1 To rsRs.RecordCount
cmb_Operator.AddItem rsRs("Operator")
Next intI
rsRs.Close
'da qui puoi continuare a caricare tutte le altre
combo cambiando semplicemente la stringa strSql e riaprendo il
recordset rsRs;
in pratica devi ripetere per ogni combo
da strSql = "SELECT..." fino a rsRs.Close
End Sub
Rispondi quotando
