不理解你的意思，一个关键字，查所有的列？
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
加好友 
发短信
Post By：2015/9/23 10:09:00 [显示全部帖子]
