在VB语句中尽量不要用'吧,用chr(34)代替
还有就是你查找到后再判断一下,如你输入 李 的时候查找到了,再判断一下查找到的是否符合条件
最好用ado,这样可以使用sql语句,比较简单方便
要用SQL语句
select * from 表名 where nr like '% mno %'
当然,这样的话,你要用ado了。呵呵,程序要重写。
不改的话,就do……loop,一个一个记录用instr判断。
很简单,DATA1有个属性RecordSoure,这样用:
Dim mno As String
mno = InputBox$("请输你要查找的姓名:", "查找窗")
Data1.RecordSoure="select * from 表名 where nr like '% mno %'"
Data1.refresh
If Data1.Recordset.NoMatch Then MsgBox "没有这个名字!", , "提示"
End Sub