Ciao a tutti!!
Sto creando un programma x fare preventivi x una ditta.
Lavorando con 3 form, mi sorge un problema nel secondo, quando voglio caricare un array.
Nel primo caso riesce, poi non carica più niente.
Secondo voi cos'ho sbagliato??
Il codice è questo:
Dim pif(20), pig(20), v(20), ps(20), af(20), afm(20) As String
Dim i As Integer
Private Sub Command1_Click()
For i = 1 To 20
If Form1.Option1 = True Then
If Form2.Option1 = True Then
cbo1.AddItem pif(i)
Else
If Form2.Option2 = True Then
cbo1.AddItem pig(i)
End If
If Form1.Option2 = True Then
If Form2.Option1 = True Then
cbo1.AddItem ps(i)
Else
If Form2.Option2 = True Then
cbo1.AddItem (i)
End If
If Form1.Option3 = True Then
Form2.cbo1.AddItem v(i)
End If
If Form1.Option4 = True Then
If Form2.Option1 = True Then
cbo1.AddItem pif(i)
Else
If Form2.Option2 = True Then
cbo1.AddItem pig(i)
End If
If Form1.Option5 = True Then
If Form2.Option1 = True Then
cbo1.AddItem pif(i)
Else
If Form2.Option2 = True Then
cbo1.AddItem af(i)
Else
If Form2.Option3 = True Then
cbo1.AddItem af(i)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next i
End Sub
Private Sub Form_Load()
pif(1) = "Nexa"
pif(2) = "Equa"
pif(3) = "Intaglio"
pif(4) = "Glass"
pif(5) = "Zen"
pif(6) = "Suite"
pif(7) = "Kévia"
pif(8) = "Yncisa"
pif(9) = "Vera"
pif(10) = "Myllenia"
pif(11) = "Geometrika"
pif(12) = "Myllenium"
pif(13) = "Déco"
pif(14) = "Dipregio"
pif(15) = "Export1000"
pif(16) = "Modula"
pif(17) = "Rolling"
pif(18) = "Blyndo"
pig(1) = "Design"
pig(2) = "Classical"
pig(3) = "Professional"
pig(4) = "Doorsplanet"
v(1) = "Finestre per tetti"
v(2) = "Tende e persiane"
v(3) = "Cupolino VELUX"
ps(1) = "BI-ELETTRA/ELETTRA"
ps(2) = " D-CODE"
ps(3) = " VITRA"
ps(4) = "SENTRY"
ps(5) = " HI FI"
ps(6) = "AT"
ps(7) = "FAST SBLOCK"
ps(8) = " SBLOCK PUSH"
ps(9) = "FIRECUT/VULCANO"
ps(10) = "PALACE"
ps(11) = "UNDER"
af(1) = "Scenik"
af(2) = "Reflex"
af(3) = "Genius"
af(4) = "Techne"
af(5) = "Oxa"
af(6) = "Altre scale"
afm(1) = "Unika"
afm(2) = "Klio"
afm(3) = "Klio Zink"
afm(4) = "AF26"
afm(5) = "Corolla"
afm(6) = "Fokus"
End Sub
HELP
Ultima modifica effettuata da dade il 31/03/2009 alle 17:41 | 
