Comment définir plus une condition en temps

Question

je voudrais quelque chose comme ça:

While Not RdoRst.EOF And RdoRst(2) = "Foo" 
     cboComboBox.AddItem RdoRst(1) 
     cboComboBox.ItemData(cboComboBox.NewIndex) = RdoRst(0) 
     RdoRst.MoveNext 
Wend 

Je veux que l'expression 1 (Non RdoRst.EOF) est évalué en premier. Alors si elle retourne vrai, l'expression 2 est aussi évaluée (RdoRst (2) = "Foo"). Si l'expression 1 renvoie false, l'expression 2 n'est pas évaluée.

Cordialement,

Florian

Answer 1

AndAlso n'est pas disponible dans VB6. Essayez cette

Do 
    If RdoRst.EOF Then Exit Do 
    If Not RdoRst(2) ="Foo" Then Exit Do  
    cboComboBox.AddItem RdoRst(1) 
    cboComboBox.ItemData(cboComboBox.NewIndex) = RdoRst(0) 
    RdoRst.MoveNext 
Loop 

Answer 2

While Not RdoRst.EOF 
    If RdoRst(2) = "Foo" Then 
     cboComboBox.AddItem RdoRst(1) 
     cboComboBox.ItemData(cboComboBox.NewIndex) = RdoRst(0) 
    Else 
     Exit Wend 
    End If 
    RdoRst.MoveNext 
Wend 

Answer 3

La question a trait à l'évaluation 'court circuit' des expressions de condition. Eh bien, VB6 ne supporte pas cette fonctionnalité. Je sais que c'est stupide.