[VB6]: Caricamento di più ComboBox con stessa sorgente dati

[jjjjjj]

Egregi prg

Mi servirebbe un aiutino

avendo 50 combo e volendo caricare lo stesso database su tutti i 50 combo

non si potrebbe caricare una volta sola?

Piccola porzione di codice :

For x = 0 To 50
Combo1(x).AddItem (rs("SQUADRE").Value)

Next

altrimenti ci impiega 50 secondi....

Ringrazio per una cortese risposta.

Saluti.

[alka]

Potresti caricare i dati nella prima e scandirla successivamente per "ricalcarli" nelle altre o, molto più semplicemente, durante la scansione dei record, scandire la matrice di controlli e caricare il valore del record corrente in tutte le caselle di riepilogo a tua disposizione sul form.

Ciao!

[jjjjjj]

Un esempio con codice potresti farlo?

Grazie.

[alka]

Originariamente inviato da jjjjjj
Un esempio con codice potresti farlo?

Non ho VB6 installato, quindi non mi è possibile, ma indicativamente se hai un ciclo per scandire i record e un ciclo per scandire le ComboBox dalla prima all'ultima, ti basta racchiudere il secondo nel primo.

Qualcosa come

rs.Open
While Not rs.Eof Do
  For x = 0 To 50
    ComboArray(x).AddItem (rs("SQUADRE").Value)
  Next
  rs.MoveNext
Loop

Non garantisco per il codice, ovviamente non l'ho verificato con il compilatore.

Ciao!