Foxtable(狐表)用户栏目专家坐堂 → [求助]下图中的查询功能如何实现


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

主题:[求助]下图中的查询功能如何实现

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
[求助]下图中的查询功能如何实现  发帖心情 Post By:2015/3/18 17:15:00 [只看该作者]

如图所示:
在文本框中输入值后,点击确定按钮,可列出当前表中的有关记录。同时文本字段支持模糊查询。
图片点击可在新窗口打开查看此主题相关图片如下:查询功能.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/3/18 17:16:00编辑过]

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


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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/18 17:42:00 [只看该作者]

Dim filter As String = "1=2"
For Each dc As Col In CurrentTable.Cols
    filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("查找条件").Text & "%'"
Next
Tables("表A").Filter = filter

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/3/19 11:19:00 [只看该作者]

甜哥:解释一下代码的意思,谢谢!另:这段代码赋予的对象是?
[此贴子已经被作者于2015/3/19 11:20:41编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/19 11:29:00 [只看该作者]

以下是引用liuxianjie1980在2015/3/19 11:19:00的发言:
甜哥:解释一下代码的意思,谢谢!另:这段代码赋予的对象是?
[此贴子已经被作者于2015/3/19 11:20:41编辑过]

 

意思是循环每一列,生成查询条件。

 

写到查询按钮里面去就行啊


 回到顶部