以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教如何实现万能查询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74938)
--  作者：zhycyq
--  发布时间：2015/9/23 10:02:00
--  请教如何实现万能查询
请教如何实现万能查询？例如表A有10个字段，有可能任意几个字段组合查询？请问如何实现？谢谢！
--  作者：大红袍
--  发布时间：2015/9/23 10:09:00
--  

不理解你的意思，一个关键字，查所有的列？

 

Dim filter As String = "1=2"
For Each dc As Col In Tables("表A").Cols
    Filter &= " or Convert(" & dc.Name & ",\'System.String\') like \'%" & e.Form.Controls("TextBox1").Text & "%\'"
Next

Tables("表A").Filter = filter