主题：[求助]

是如果有多个文本控件，应该乍样？是这样往后递加吗？

Dim filter As String = ""
Dim txt As String = e.Form.Controls("TextBox1").TEXT
If txt > "" Then
    txt = "'%" & txt & "%'"
    Filter = "部门名称 Like " & txt
End If

Dim txt1 As String = e.Form.Controls("TextBox2").TEXT
If txt1 > "" Then
    txt1 = "'%" & txt1 & "%'"
    If Filter > "" Then
        Filter = Filter & " and 专业 Like " & txt1
    Else
        Filter = "专业 Like " & txt1
    End If
End If

If Filter > "" Then
    Tables("机构").Filter = Filter
End If

是的。

太多的话，可以参考下面的简化：

Dim filter As String = ""
Dim nms1() As String = {"部门名称","专业","学历")
Dim nms1() As String = {"TextBox1","TextBox2","TextBox3")
For i As Integer = 0 To nms1.Length - 1
    Dim txt As String = e.Form.Controls("TextBox1").text
    If txt > "" Then
        If Filter > "" Then
            Filter = Filter & " and "
        End If
        Filter = Filter & nms1(i) & " Like '%" & txt & "%'"
    End If
Next
If Filter > "" Then
    Tables("机构").Filter = Filter
End If