主题：文本框输入内容 表中筛选内容

Dim txt As String = e.Sender.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%' "
    tbl.Filter = "产品编码 Like " & txt
End If

 

以上是代码  

 

提示错误  见附图

此主题相关图片如下：微信图片_20191106152514.png


此主题相关图片如下：11.png