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