以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文本框输入内容 表中筛选内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142796)
--  作者：gch03042
--  发布时间：2019/11/6 15:24:00
--  文本框输入内容 表中筛选内容

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
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/11/6 15:25:00
--  
如果不是副本，需要使用主表名称

Dim tbl As Table = Tables("窗口1_Table1")
改为
Dim tbl As Table = Tables("表A")
--  作者：gch03042
--  发布时间：2019/11/6 15:30:00
--  

谢谢  有点蓝