蓝老师,“专家查询” 表的 “专家查询”窗口加一个文本框,欲实现多字段的模糊搜索,在Textchange事件添加如下代码:
For Each c1 As String In e.Form.Controls("TextBox1").Text.Split(" ")
Dim tbl As Table = Tables("专家查询_Table1")
If c1 = "" Then
tbl.Filter = ""
Else
c1 = "'%" & c1 & "%'"
tbl.Filter = "姓名 Like " & c1 & " Or 专业 Like " & c1 & " Or 研究领域 Like " & c1
End If
Next
这串代码无法实现多字段模糊搜索,请问该如何改进?谢谢蓝老师