vb6 - probemi con un ciclo..

[angelicab]

perche non funziona??

i = 0
Dim matricola
While Not i = 6
i = i + 1
If rsClienti!cod_modello(i) <> "" Then
cmb_modello.ItemData(cmb_modello.NewIndex) = rsClienti!cod_modello(i)
strSQL = "SELECT * FROM modelli WHERE contatore = " & rsClienti!cod_modello(i)
Set rsModelli = dbAss.OpenRecordset(strSQL)
If Not rsModelli.EOF Then
cmb_modello.AddItem rsModelli!nome_modello
End If
rsModelli.Close
If rsClienti!matricola(i) <> "" Then
matricola(i) = rsClienti!matricola(i)
Else
matricola(i) = ""
End If
End If
Wend

[iguana13]

Per ora posso dirti solo di:

• Sostituire il ciclo While...Wend esterno (che è obsoleto) con un ciclo For...Next
• Mettere il codice tra [ CODE] e [/ CODE]
• Usare le tabulazioni
• Spiegare cosa dovrebbe fare il codice