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