急救

Question

我用了Combo控件，把COMBO控件的STYLE属性改为1：simple combo
在COMBO的CHANGE事件中写数据库查询，使用LIKE关键字来实现模糊查找。
将所有找到的记录用COMBO.ADDNEW方法来添加到COMBO中，
这是查询第一个字“刘”时我想接下来在刘后面在加上“非”字变成查询“刘非”
在Combo中显示“刘非人”，“刘飞长”等等，而其他不是刘非开头的不显示
我加了一个COMBO.clear这样一来出错了写第二个“飞“字时前面的刘也被清空了！
请问怎么做才能实现这个功能呢？在线等啊

Answer 1

Private Sub Combo1_Change()
 Dim sql As String
    sql = "select name from staff where name like '" & combo1.text & "%'"
    rs.Open sql, conn, 3, 3
         n = rs.RecordCount
     ‘在这里加了一个 combo1.clear
        For i = 1 To n
        m = rs.Fields(0).Value
        Combo1.AddItem m
         rs.MoveNext
         Next i
        rs.Close
End Sub
怎么改啊？