Dim txt As String = e.Form.Controls("TextBox6").Text
Dim tbl As Table = Tables("知识库")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'*" & txt & "*'"
tbl.Filter = " 名称 Like " & txt & " Or 关键词一 Like " & txt & " Or 关键词二 Like " & txt & " Or 关键词三 Like " & txt & " Or 关键词四 Like " & txt
End If
理由:
http://www.foxtable.com/help/topics/1905.htm