主题：由多列模糊筛选改为单列筛选

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If

这是多列筛选代码  如何改成单列筛选代码

Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
    Tables("窗口1_Table1").Filter = ""
Else
    Tables("窗口1_Table1").Filter = "客户ID Like '*" & txt & "*'"
End If

这段代码是对的 但是 引用的  TextBox1  只能到 TextBox10  在往后变成TextBox01或更多就不行了  这是为什么  能不能有改进 我想在往后增N个 能不能实现 请帮助 谢谢

那位楼主在 请帮助我一下  我很急  谢谢您们了

Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
    Tables("窗口1_Table1").Filter = ""
Else
    Tables("窗口1_Table1").Filter = "客户ID Like '*" & txt & "*'"
End If

TextBox1  这个是文字输入的框   但是这段代码只能在1到10个框之间运行      超出10个框了就不能运行了出现如下的提示！

请狐狸爸爸还有明白的朋友 帮我解决一下