Visual Basic 6 - piccolo problema! vorrei popolare delle texbox da un elenco ma non capisco dove sbaglio

Forum - Visual Basic 6 - piccolo problema! vorrei popolare delle texbox da un elenco ma non capisco dove sbaglio

damirella (Normal User)
Newbie

Messaggi: 16
Iscritto: 20/01/2011

Postato alle 12:22
Lunedì, 24/01/2011

ho 3 textbox + 3 text box rispettivamente
tvend1 e tprz1
tvend2 e tprz2
tvend3 e tprz3

alal pressione del comando ho inserito il seguente codice: (Ma mi popola solo la 1 e la 2 la 3 mai dove sbaglio?

Grazie Mille

Tvend1.SetFocus

If Tvend1.Text = "" Then
Me.Tvend1.Value = Me.Elenco18.Column(1)
Me.TPrz1.Value = Me.Elenco18.Column(3)

Else

If Tvend1.Text <> "" Then
Me.TVend2.Value = Me.Elenco18.Column(1)
Me.TPrz2.Value = Me.Elenco18.Column(3)

Else

If TVend2.Text <> "" Then
Me.Tvend3.Value = Me.Elenco18.Column(1)
Me.TPrz3.Value = Me.Elenco18.Column(3)

Else

End If
End If
End If

poeo85 (Normal User)
Pro

Messaggi: 104
Iscritto: 27/01/2010

Postato alle 13:41
Lunedì, 24/01/2011

beh semplice
If Tvend1.Text = "" Then
    Me.Tvend1.Value = Me.Elenco18.Column(1)
    Me.TPrz1.Value = Me.Elenco18.Column(3)

Else


    If Tvend1.Text <> "" Then
        Me.TVend2.Value = Me.Elenco18.Column(1)
        Me.TPrz2.Value = Me.Elenco18.Column(3)

    Else


        If TVend2.Text <> "" Then
            Me.Tvend3.Value = Me.Elenco18.Column(1)
            Me.TPrz3.Value = Me.Elenco18.Column(3)


        Else


        End If
    End If
End If

se entri nella condizione del primo if non entrerai mai negli altri in quanto entrerai solo se non è verificata la prima condizione

per risolvere devi separare gli if

esempio
If Tvend1.Text = "" Then
    Me.Tvend1.Value = Me.Elenco18.Column(1)
    Me.TPrz1.Value = Me.Elenco18.Column(3)

Else

end if

If TVend2.Text <> "" Then
            Me.Tvend3.Value = Me.Elenco18.Column(1)
            Me.TPrz3.Value = Me.Elenco18.Column(3)
Else


End If

ps: altro consiglio riguardati le condizioni degli if...
se scritti così i primi due si equivalgono cioè son gli stessi

If Tvend1.Text = "" Then
    Me.Tvend1.Value = Me.Elenco18.Column(1)
    Me.TPrz1.Value = Me.Elenco18.Column(3)

Else
    If Tvend1.Text <> "" Then

non so se è un errore di copia incolla