Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2944人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
riyuan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:325 积分:2528 威望:0 精华:0 注册:2013/4/9 11:49:00
[求助]  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/20 17:07:00 [只看该作者]

最简单的方法,  户号 的列类型改为字符类型.

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:325 积分:2528 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/20 17:36:00 [只看该作者]

看3楼.

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:325 积分:2528 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2014/5/20 17:37:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/20 17:38:00 [只看该作者]

上例子.

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:325 积分:2528 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2014/5/20 17:41:00 [只看该作者]

如果还可以用拼音码就更好
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:kk.zip


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/20 17:47:00 [只看该作者]


 回到顶部