主题：如何做一个多表通用筛选查询呢？根据不用的表名，自动匹配对应的表字段去进行模糊字符查询！

参考

Dim filter As String = "1=2"
For Each c As Col In Tables("表A").Cols
    filter &= " or convert(" & c.name & ",'System.String') like '%" & 123 & "%'"
Next
msgbox(filter)