Foxtable(狐表)用户栏目专家坐堂 → 文本框输入内容 表中筛选内容


  共有2577人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
gch03042
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:2 积分:81 威望:0 精华:0 注册:2019/11/6 15:17:00
文本框输入内容 表中筛选内容  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/6 15:25:00 [只看该作者]

如果不是副本,需要使用主表名称

Dim tbl As Table = Tables("窗口1_Table1")
改为
Dim tbl As Table = Tables("表A")

 回到顶部
帅哥哟,离线,有人找我吗?
gch03042
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:2 积分:81 威望:0 精华:0 注册:2019/11/6 15:17:00
  发帖心情 Post By:2019/11/6 15:30:00 [只看该作者]

谢谢  有点蓝


 回到顶部