以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65467)

--  作者:gcc123
--  发布时间:2015/3/16 22:59:00
--  求助


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150316224743.png
图片点击可在新窗口打开查看


Tables("鲁H7A751").Filter = "[开支明细] Like \'%" & e.Form.Controls("查找条件").Text & "%\'"

列名能不能包含 整个表的所有列呢

 


--  作者:有点甜
--  发布时间:2015/3/16 23:41: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("鲁H7A751").Filter = filter