Foxtable(狐表)用户栏目专家坐堂 → loadfilter筛选的问题,筛选不出数据


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

主题:loadfilter筛选的问题,筛选不出数据

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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
loadfilter筛选的问题,筛选不出数据  发帖心情 Post By:2015/12/13 15:40:00 [只看该作者]

Dim tj As WinForm.TextBox = e.Form.Controls("搜索")
Dim s As String
s = "*" & tj.text & "*"
Dim filter As String
filter=CExp("[公司全称] like '{0}' Or [地址] like '{1}' Or [电话] like '{2}' Or [传真] like '{3}' Or [客户主营] like '{4}'",s,s,s,s,s)

DataTables("客户信息").LoadFilter=filter
MessageBox.show(filter)
DataTables("客户信息").LoadOrder="开发日期 DESC"
DataTables("客户信息").Load()

代码如上:
不管搜索框中输入什么,都找不出数据来。代码能看出问题来吗

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


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

Dim tj As WinForm.TextBox = e.Form.Controls("搜索")
Dim s As String
s = "%" & tj.text & "%"
Dim filter As String

filter=CExp("[公司全称] like '{0}' or [公司全称] is null Or [地址] like '{1}' or [地址] is null Or [电话] like '{2}' or [电话] is null Or [传真] like '{3}' or is null Or [客户主营] like '{4}' or [客户主营] is null",s,s,s,s,s)

 

DataTables("客户信息").LoadFilter=filter
MessageBox.show(filter)
DataTables("客户信息").Load()

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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
  发帖心情 Post By:2015/12/13 21:12:00 [只看该作者]

你那样就没有筛选的作用了,全部数据都加载出来了

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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
  发帖心情 Post By:2015/12/13 21:19:00 [只看该作者]

表是外部数据源Access的

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


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

 
Dim tj As WinForm.TextBox = e.Form.Controls("搜索")
Dim s As String
s = "%" & tj.text & "%"
Dim filter As String

filter=CExp("[公司全称] like '{0}' Or [地址] like '{1}' Or [电话] like '{2}' Or [传真] like '{3}' Or [客户主营] like '{4}'",s,s,s,s,s)

 

DataTables("客户信息").LoadFilter=filter
MessageBox.show(filter)
DataTables("客户信息").Load()

 回到顶部