如何在While中定义更多一个条件

Question

我想要那样的东西：

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

我希望首先评估表达式1（Not RdoRst.EOF）。然后，如果它返回true，则也计算表达式2（RdoRst（2）=“Foo”）。如果表达式1返回false，则不计算表达式2。

问候，

弗洛里安

Answer 1

AndAlso在VB6中不可用。试试这个

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

问题涉及条件表达式的“短路”评估。 VB6不支持此功能。我知道这很愚蠢。