以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]下图中的查询功能如何实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65588)
--  作者：liuxianjie1980
--  发布时间：2015/3/18 17:15:00
--  [求助]下图中的查询功能如何实现
如图所示：
在文本框中输入值后，点击确定按钮，可列出当前表中的有关记录。同时文本字段支持模糊查询。
图片点击可在新窗口打开查看此主题相关图片如下：查询功能.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/3/18 17:16:00编辑过]
--  作者：Bin
--  发布时间：2015/3/18 17:19:00
--  
http://www.foxtable.com/help/topics/1534.htm
--  作者：有点甜
--  发布时间：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
--  发布时间：2015/3/19 11:19:00
--  
甜哥：解释一下代码的意思，谢谢！另：这段代码赋予的对象是？
[此贴子已经被作者于2015/3/19 11:20:41编辑过]
--  作者：有点甜
--  发布时间：2015/3/19 11:29:00
--  
以下是引用liuxianjie1980在2015/3/19 11:19:00的发言：
甜哥：解释一下代码的意思，谢谢！另：这段代码赋予的对象是？
[此贴子已经被作者于2015/3/19 11:20:41编辑过]

 

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

 

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