Dim str As String = "aaa"
Dim filter As String = "1=2"For Each dc As Col In Tables("表A").Cols filter &= " or convert(" & dc.Name & ",'System.String') like '%" & str & "%'"Next
Tables("表A").Filter = filter
加好友 
发短信
Post By：2014/10/8 15:58:00 [显示全部帖子]
