| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- loadfilter筛选的问题，筛选不出数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78622) |
| -- 作者：sjzsdu -- 发布时间：2015/12/13 15:40:00 -- loadfilter筛选的问题，筛选不出数据 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() 代码如上： 不管搜索框中输入什么，都找不出数据来。代码能看出问题来吗
|
| -- 作者：大红袍 -- 发布时间：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 -- 发布时间：2015/12/13 21:12:00 -- 你那样就没有筛选的作用了，全部数据都加载出来了 |
| -- 作者：sjzsdu -- 发布时间：2015/12/13 21:19:00 -- 表是外部数据源Access的 |
| -- 作者：大红袍 -- 发布时间：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()
|