If e.keycode = keys.enter Then Dim s As String = e.Sender.Text Dim f As String Dim ss As String()=s.split(",") For Each t As String In ss f=f & " Or 产品名称 Like '%" & t & "%'" Next f=f.Remove(0,4) With DataTables("查询") .LoadFilter= iif(filter>"", filter & " and (" & f & ")", f)