TextChanged 事件中这样改一下呢:
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("hpzl")
If txt = "" Then
tbl.Filter = ""
Else
If txt.contains("*")
txt = "'*" & txt.replace("*","[*]") & "*'" '这里修改了···
Else
txt = "'*" & txt & "*'"
End If
tbl.Filter = "hpbh Like " & txt & " Or hpmc Like " & _
txt & " Or ggbz Like " & txt & " Or pp Like " & txt & " Or hpmczjm Like " & txt
End If
[此贴子已经被作者于2011-4-28 21:38:35编辑过]