VB6 déclaration IF multiple problème bizarre

Question

Vous avez un problème bizarre dans une instruction IF avec plusieurs conditions. La dernière version de travail ressemble à:

If VAR1 = "SCRT" And InStr("|TEC|FIN|", "|" & VAR2 & "|")) And VAR3 = 1 Then 

Et maintenant, je mets en œuvre une autre condition à la déclaration:

If VAR1 = "SCRT" And InStr("|TEC|FIN|", "|" & VAR2 & "|")) And (VAR3 = 1 or VAR3 = 15) Then 

Avec ces valeurs: VAR1: "" (vide) VAR2: "FIN" VAR3: 1

Le code fonctionnera correctement dans le débogage. Le bizarre est la compilation et l'exécution sur l'environnement de production, la condition a passé même avec la première condition pas ok.

Déjà connecté les valeurs pour vérifier. L'environnement de production a les mêmes fichiers (bibliothèques).

La seule chose qui a changé en dehors de la condition est l'option explicite au début de ce module.

Merci!

Answer 1

Sans vouloir vous offenser, c'est trop difficile à analyser, et sans raison valable. Lorsque vous traitez avec And conditions, vous êtes beaucoup mieux en utilisant If imbriqués s, en plaçant les conditions les plus probables et les premiers tests les plus chers dernière lorsque cela est possible. Cela est beaucoup plus claire, et presque certainement plus rapide:

If VAR1 = "SCRT" Then 
If InStr("|TEC|FIN|", "|" & VAR2 & "|")) > 0 Then 
    If (VAR3 = 1) or (VAR3 = 15) Then 

Cela permet à un court-circuit, qui est par ailleurs disponible dans VB6. Le code ne s'exécute pas simplement parce qu'il est sur une ligne. Deux changements: test If Instr > 0 plutôt que seulement If Instr. Oui, VB évaluera un test réussi à True/False, mais il n'évaluera jamais le Not de cette expression à False, qui vous mordra un jour. Crois le. (-:

Deuxième changement: je parens pour forcer l'ordre de priorité pour les conditions Or Il y a des règles, mais vous pourriez obtenir quelque chose comme If VAR3 = (1 Or VAR3) = 15 quand vous y attendez le moins être explicites et il n'y a pas de surprises

...