参考代码
Dim filter As String = "1=2"For Each c As Col In Tables("表A").cols filter &= " or convert(" & c.name & ",'System.String') like '%" & "123" & "%'"NextTables("表A").Filter = filter
加好友 
发短信
Post By：2016/1/12 20:31:00 [显示全部帖子]
