主题：[求助]

在textbox框中的textchanged事件中，想输入姓名的拼音码或身份证号等条件的任意字符去匹配，一运行代码提示“从字符串“[户号] Like '*0*'”到类型“Long”的转换无效。”

代码如下，

With e.Form
Dim txb1 As WinForm.TextBox = .Controls("textbox4")

      Tables("main_table1").filter = "[户号] Like '*" & txb1.text & "*'" Or "[姓名] Like '*" & txb1.text & "*'"
End With

请问如何编写

With e.Form
Dim txb1 As WinForm.TextBox = .Controls("textbox4")

     Tables("main_table1").filter = "[姓名] Like '*" & txb1.text & "*'"
End With

这样写可以正常运行，但只能接收汉字，不能判断数字和汉字的拼音码

请教还有什么方法

不行，3楼方法已经验证，行不通