主题：[求助]查询筛选代码

加上判断

For Each dc As Col In Tables("表A").Cols
    Select Case dc.Name
        Case "简称","中文简称","名称"
            Filter &= " or Convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
    End Select
Next