以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何全表模糊查找，求代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65180)
--  作者：cyl123
--  发布时间：2015/3/10 19:31:00
--  如何全表模糊查找，求代码
如何全表模糊查找，求代码
--  作者：有点甜
--  发布时间：2015/3/10 19:32: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("TextBox1").Text & "%\'"
Next
CurrentTable.Filter = filter
--  作者：lsy
--  发布时间：2015/3/11 7:15:00
--  
以下是引用有点甜在2015/3/10 19:32: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("TextBox1").Text & "%\'"
Next
CurrentTable.Filter = filter


对日期列无效，日期列还需要专门再加工。