主题：模糊查询

我想在TextBox类型里面指定某个表进行全部列，全部内容的模糊查询，如果按照帮助里面的内容进行更改，就需要把所有列写入代码中，有没有简洁的代码来代替一下，不用输入所有列。

With e.Form

    If e.sender.text <> "输入计划号/订单号查询" Then

Dim txt As String = e.Form.Controls("a").Text

If txt = "" Then

    Tables("合同信息").Filter = ""

 Else

    txt = "'*" & txt & "*'"

    Tables("合同信息").Filter = "计划号 Like " & txt & " Or 订单号 Like " & txt & " Or 砖号 Like " & txt 

   End If

End If

End With

老师你帮我改一下谢谢了