Question

vb 如何循环查询一个数据库中的字符串，并将其添加到下拉列表框中？

Data1.Recordset.FindNext "字段2 Like" & "'*" & Text8.Text & "*'"
Combo1.AddItem Data1.Recordset.Fields（1）
主要有两个问题解决不了。一个是下拉列表框查询到最后时 还不断的添加最后一个
还有这是timer控件中的代码，转到命令按钮中又怎么写

Answer 1

无论是用
Data1.Recordset.FindFirst 方法
还是用
Data1.Recordset.FindNext 方法
来进行查找记录，都要使用
Data1.Recordset.NoMatch
来判断是否找到匹配的记录，如果
Data1.Recordset.NoMatch 返回 True，就表示没有找到，如果返回 False 就表示找到了。
而不能直接（最好不要直接）象你这样使用：
Data1.Recordset.FindNext "字段2 Like" & "'*" & Text8.Text & "*'"
Combo1.AddItem Data1.Recordset.Fields（1）
而是要这样：
Data1.Recordset.FindNext "字段2 Like" & "'*" & Text8.Text & "*'"
if Data1.Recordset.NoMatch Then
'这里编写终止继续查找的相应代码
else
Combo1.AddItem Data1.Recordset.Fields（1）
.........
End If
我上面说的最好不要直接象你这样使用，意思在有的地方还是可以直接使用的，那就是你确定查找的记录一定存在？

追问

我不想用 timer控件，直接放在命令按钮中的代码又怎么写

追答

Combo1.Clear
Data1.Recordset.FindFirst "字段2 Like" & "'*" & Text8.Text & "*'"
Do while Not Data1.Recordset.NoMatch
Combo1.AddItem Data1.Recordset.Fields（1）
Data1.Recordset.FindNext "字段2 Like" & "'*" & Text8.Text & "*'"
Loop
Combo1.Text = Combo1.List(0)