Foxtable(狐表)用户栏目专家坐堂 → [求助]关于多个textbox对应列的模糊查询


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

主题:[求助]关于多个textbox对应列的模糊查询

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


加好友 发短信
等级:一尾狐 帖子:485 积分:4069 威望:0 精华:0 注册:2015/12/16 8:22:00
[求助]关于多个textbox对应列的模糊查询  发帖心情 Post By:2016/3/10 15:41:00 [只看该作者]

在帮助 设计查询窗口 中关于同时多个精确查询的案例及代码,但若要求改成支持每一个TEXTBOX只是对应列的模糊查询的话,应该如何修改呢?我参考一个textbox可以同事支持多列的模糊查询设置都不行

Dim Filter As String
With
e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter =
"产品 = '" & .Value & "'"
End If
End
With
With
e.Form.Controls("cmbCustomer")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter &
" And "
End If
Filter = Filter &
"客户 = '" & .Value & "'"
End If
End
With
With
e.Form.Controls("cmbEmployee")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter &
" And "
End If
Filter = Filter &
"雇员 = '" & .Value & "'"
End If
End
With
If Filter > "" Then
Tables(
"订单").Filter = Filter
End If
[此贴子已经被作者于2016/3/10 15:42:53编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/10 15:43:00 [只看该作者]

比如

 

Filter & "雇员 = '" & .Value & "'"

 

改成这样

 

Filter & "convert(雇员, 'System.String') like '%" & .Value & "%'"


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


加好友 发短信
等级:一尾狐 帖子:485 积分:4069 威望:0 精华:0 注册:2015/12/16 8:22:00
  发帖心情 Post By:2016/3/10 15:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

搞定,非常谢谢!

 回到顶部