Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么点击上面表格使得下面的表格自动筛选呢？


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

主题：[求助]怎么点击上面表格使得下面的表格自动筛选呢？
帅哥哟，离线，有人找我吗？
2474842866
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		[求助]怎么点击上面表格使得下面的表格自动筛选呢？  发帖心情 Post By：2019/5/27 16:57:00 [显示全部帖子]

项目有点大，链接如下：
https://pan.baidu.com/s/19youePWebkdj8zJhcW6m1w
提取码：a7gv

我希望可以在点击预警表的时候，下面的处理日志自动进行筛选？求助
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/27 17:22:00 [显示全部帖子]

老师,我改了，但是之前的表就不显示了

图片点击可在新窗口打开查看此主题相关图片如下：20190527172105.png
图片点击可在新窗口打开查看

Dim t As Table = Tables("采购系统_tb.1.3.1")
With Tables("采购系统_tb.1.3.2")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "商家编码 = '" & .Current("商家编码") & "'"
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/27 17:42:00 [显示全部帖子]

我在上面表的currentchange事件写了代码：
Dim t As Table = Tables("采购系统_tb.1.3.1")
With Tables("采购系统_tb.1.3.2")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "商家编码 = '" & .Current("商家编码") & "'"
    End If
End With
结果如图

图片点击可在新窗口打开查看此主题相关图片如下：360截图20190527174048240.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/27 18:00:00 [显示全部帖子]

加载出来？本来可以加载的，但是在currentchangge中加了代码，和下面表一起不显示了

 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/28 10:28:00 [显示全部帖子]

我真的测试了，不行啊，在父表的current事件：

Dim t As Table = Tables("采购系统_tb.1.3.1")   '定义变量父表
Dim t0 As Table = Tables("采购系统_tb.1.3.2")  '定义变量关联表子表
With t
    If .Current Is Nothing Then    '如果父表当前格是空
        t0.Filter = "False"        '不进行过滤
    Else                           '若不为空
        t0.Filter = "商家编码 = '" & .Current("商家编码") & "'"   '筛选出子表的商家编码等同父表的商家编码行
    End If
End With

图片点击可在新窗口打开查看此主题相关图片如下：{16aea8af-e99f-4ce4-95bd-4eaf53436160}_20190528102719.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/28 11:47:00 [显示全部帖子]

老师，我现在可以实现关联了，之前使用squery报错，然后我用fill方法加载两张表，再在current事件中加入了关联，但现在问题是好像只能关联一部分，而且打开窗口有一个错误提示：
未找到列 [商家编码]。
我的current代码有问题吗？
Dim t As Table = Tables("采购系统_tb.1.3.4")   '定义变量父表
Dim t0 As Table = Tables("采购系统_tb.1.3.2")  '定义变量关联表子表
With t
    If .Current Is Nothing Then    '如果父表当前格是空
        t0.Filter = "False"        '不进行过滤
    Else                           '若不为空
        t0.Filter = "商家编码 = '" & .Current("商家编码") & "'"   '筛选出子表的商家编码等同父表的商家编码行
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/28 13:24:00 [显示全部帖子]

都关联的 商家编码这一列，列名都规定了啊
s.spec_no as 商家编码  ------父表
md.商家编码 as 商家编码   ----子表
都明确指定了啊，select语句我都上传了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:code.txt
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.23438 秒, 6 次数据查询