主题：[原创]模糊查询继续

With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter > ""  And e.Form.Controls("ComboBox4").Value="文件名" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "文件题名 Like '*" & .Value & "*'"
    End If
End With

 

 

我已经实现 ComboBox4等于 文件名时 根据TextBox2的输入  进行模糊查询 但是现在我还想再加一个文本框的输入 也就是一个ComboBox4等于文件名时 匹配两个文本框的输入 模糊查询  可是在写一段上面的

 

With e.Form.Controls("TextBox3")
    If .Value IsNot Nothing Then
        If Filter > ""  And e.Form.Controls("ComboBox4").Value="文件名" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "文件题名 Like '*" & .Value & "*'"
    End If
End With

就不能查了 帮忙看看 该怎么写