代码之家  ›  专栏  ›  技术社区  ›  Florian

如何在一段时间内定义多个条件

  •  2
  • Florian  · 技术社区  · 14 年前

    我想要这样的东西:

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

    弗洛里安

    3 回复  |  直到 14 年前
        1
  •  1
  •   MarkJ    14 年前

    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 
    
        2
  •  0
  •   user1947746    11 年前

        3
  •  0
  •   Deanna superuser    11 年前
    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