主题：多字段模糊查询问题

textchanged事件

 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("表a")
If txt = "" Then
    tbl.Filter = ""
Else
    Dim filter As String = "1=1"
    For Each s As String In txt.Split(" ")
        Filter &= " and 第一列 Like '%" & s & "%'"       
    Next
    tbl.filter = filter
End If

 为了和后面的条件进行连接 1=1 and 条件2 and 条件3 ，如果不写，就多一个and