主题：货品资料如何建立快捷查找框?

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