How to define more one condition in a While

Question

Hi,

I would like something like that :

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

I want that the expression 1 (Not RdoRst.EOF) is evaluated first. Then if it returns true, the expression 2 is evaluated too (RdoRst(2) = "Foo"). If expression 1 return false, the expression 2 is not evaluated.

Regards,

Florian

Answer 1

AndAlso is not available in VB6. Try this

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) End If RdoRst.MoveNext Wend