各位,我在窗体设计两个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 里
请告诉我该怎么解决这个问题。
代码如下:
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 里
请告诉我该怎么解决这个问题。
解决方案 »
- 关于FSO操作大文件的问题。
- 重新开贴:进都有分!调试出错,小弟没有学过VB。请各位大哥指教,我有急用!!!
- vb中好象能用写注册表的方法设置代理服务器,写过这个代码的请进
- 在更新mshflexgrid所绑定的recordset后出现问题
- 解决这个问题,愿以500分作为酬谢
- 怎样对文本类型的日期进行分段查询
- 如何在网络上读取计算机的配置?
- 向各位请教求n位数的排列的算法
- 我要用VB 改写VBA 编写的程序但是在VB中我没有找到象VBA中的option group控件,求叫各位高手那里找得到或者只得自己编。
- 请问如何将Access97的MDE文件转换成MDB? (急!)
- 一个关于ADO控件的使用问题
- 怎么取得一个*.bmp图的Width和Height(100分,解决后立即结帖)
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
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