各位,我在窗体设计两个ComboBox控件,一个供选择,一个用来绑定数据, 
代码如下:
rs.Open "select 姓名 from [人员信息] where 地区='" & Combo1.Text & "'"
     If Not (rs.BOF And rs.EOF) Then
      Do While Not rs.EOF
       Combo2.AddItem rs.Fields(0) & ""
       rs.MoveNext
      Loop
    End If
功能能够实现,能够绑定数据,但当我选择另外一个地区时候,前面的记录还显示在Combo2 里
请告诉我该怎么解决这个问题。

解决方案 »

  1.   

    先清除
    Combo2.Clear()rs.Open "select 姓名 from [人员信息] where 地区='" & Combo1.Text & "'"
         If Not (rs.BOF And rs.EOF) Then
          Do While Not rs.EOF
           Combo2.AddItem rs.Fields(0) & ""
           rs.MoveNext
          Loop
        End If
      

  2.   

    rs.Open "select 姓名 from [人员信息] where 地区='" & Combo1.Text & "'"
         If Not (rs.BOF And rs.EOF) Then
          Combo2.Clear
          Do While Not rs.EOF
           Combo2.AddItem rs.Fields(0) & ""
           rs.MoveNext
          Loop
        End If