Foxtable(狐表)用户栏目专家坐堂 → [求助]如何在Text文本框中实现查询


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

主题:[求助]如何在Text文本框中实现查询

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 14:05:00 [显示全部帖子]

Tables("表A").Filter = "Convert(日期,'System.String') like '%" & e.form.controls("TextBox1").Text & "%'"

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 14:06:00 [显示全部帖子]


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 14:43:00 [显示全部帖子]

 上传实例,说明问题。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 15:44:00 [显示全部帖子]

Dim str As String = e.Form.controls("TextBox1").Text
Dim filter As String = "订单编号 like '%" & str & "%' or format(签订日期, 'yyyy-MM-dd') Like '%" & str & "%'"
e.Form.controls("Table1").Table.DataTable.LoadFilter = filter
e.Form.controls("Table1").Table.DataTable.Load

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 16:39:00 [显示全部帖子]

 我,测试,没问题。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 17:04:00 [显示全部帖子]

 load不要删除啊。

 

 例子我测试没问题。

 

 你的是什么数据源,报什么错。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 17:44:00 [显示全部帖子]

请贴出你afterLoad和click事件的代码。不要用截图


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 18:25:00 [显示全部帖子]

click事件

 

Dim str As String = e.Form.controls("TextBox1").Text
Dim filter As String = "订单编号 like '%" & str & "%' or CONVERT(varchar, 签订日期, 120) Like '%" & str & "%'"


Dim cmd As New SQLCommand
Dim sql As String =""
Dim dt As DataTable
cmd.ConnectionName = "数据源"
sql = " select * fr om JXC_YpOrderMaster where " & filter
cmd.CommandText = sql
dt = cmd.ExecuteReader()
Tables("窗口1_Table1").DataSource = dt
   


 回到顶部