如何在一段时间

Question

定义更多的一个条件，我想这样的事情：

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

我想要表达的1（不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不支持这个功能。我知道这很愚蠢。