以文本方式查看主题

-  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=72055)
--  作者：yangwenghd
--  发布时间：2015/7/22 17:19:00
--  整个表里面搜索
如果设计一个按钮
Tables("价格表").Filter = "总型号 Like \'%" & e.Form.Controls("TextBox1").Text & "%\'"
把TextBox1改为搜索的范围不是"总型号 而是 整个Tables("价格表")，应该这么改啊！感谢 感谢 
--  作者：大红袍
--  发布时间：2015/7/22 17:21:00
--  

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

Tables("价格表").Filter = filter