以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51141)
--  作者：riyuan
--  发布时间：2014/5/20 17:06:00
--  [求助]

在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

请问如何编写
--  作者：Bin
--  发布时间：2014/5/20 17:07:00
--  
最简单的方法,  户号 的列类型改为字符类型.
--  作者：有点甜
--  发布时间：2014/5/20 17:08:00
--  

 这样写

 

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

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

[此贴子已经被作者于2014-5-20 17:08:44编辑过]
--  作者：riyuan
--  发布时间：2014/5/20 17:34:00
--  

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

代码如下:

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

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

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

请教还有什么方法
--  作者：Bin
--  发布时间：2014/5/20 17:36:00
--  
看3楼.
--  作者：riyuan
--  发布时间：2014/5/20 17:37:00
--  

不行，3楼方法已经验证，行不通
--  作者：Bin
--  发布时间：2014/5/20 17:38:00
--  
上例子.
--  作者：riyuan
--  发布时间：2014/5/20 17:41:00
--  
如果还可以用拼音码就更好
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:kk.zip
--  作者：Bin
--  发布时间：2014/5/20 17:46:00
--  
你代码没写对

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

     Tables("main_table1").filter = "Convert([户号], \'System.String\') Like \'*" & txb1.text & "*\' Or [姓名] Like \'*" & txb1.text & "*\'"
End With
--  作者：Bin
--  发布时间：2014/5/20 17:47:00
--  
拼音搜索参考http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=45372