Instruction If dans VB 6.0
Polly
-
Armojax Messages postés 1863 Date d'inscription Statut Membre Dernière intervention -
Armojax Messages postés 1863 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Pouvez-vous SVP me corriger le code suivant:
Vérifier surtout l'utilisation de Else If et la définition des conditions.
If Rep = "01" Or Rep = "02" Or Rep = "03" Then
VarNum = Varold
operator.Text = Varoperator
ElseIf Rep = "14" Or rep = "20" Or Rep = "23" Then
VarNum = VaroldNum + 1
operator.Text = Varoperator
ElseIf Rep = "05" Or Rep = "06" Then
VarNum = Varold - 15
Operator.Text = VarNum
end If
End If
EndIf
Merci d'avance
Polly.
Pouvez-vous SVP me corriger le code suivant:
Vérifier surtout l'utilisation de Else If et la définition des conditions.
If Rep = "01" Or Rep = "02" Or Rep = "03" Then
VarNum = Varold
operator.Text = Varoperator
ElseIf Rep = "14" Or rep = "20" Or Rep = "23" Then
VarNum = VaroldNum + 1
operator.Text = Varoperator
ElseIf Rep = "05" Or Rep = "06" Then
VarNum = Varold - 15
Operator.Text = VarNum
end If
End If
EndIf
Merci d'avance
Polly.
1 réponse
-
Salut polly,
Je ne vois pas de problème, à part 2 End If en trop en fin de proc.
Je conseillerais plutôt, pour la clarté, l'utilisation de Select Case :Select Case Rep Case "01", "02", "03" VarNum = Varold Operator.Text = Varoperator Case "14", "20", "23" VarNum = VaroldNum + 1 Operator.Text = Varoperator Case "05", "06" VarNum = Varold - 15 Operator.Text = VarNum End Select
