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


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

主题：[求助]怎么点击上面表格使得下面的表格自动筛选呢？
帅哥哟，离线，有人找我吗？
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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/27 17:09:00 [只看该作者]

贴出你currentChanged事件代码，参考

 

    Dim t As Table = Tables("窗口1_Table1")
    With Tables("产品")
        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: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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/27 17:38:00 [只看该作者]

代码写在上面的表的currentChanged事件
 
Dim t As Table = Tables("上面的表")
With Tables("下面的表")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "商家编码 = '" & .Current("商家编码") & "'"
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/27 17:43:00 [只看该作者]

 

把你上面的表的数据加载出来。

 

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


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

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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/27 18:27:00 [只看该作者]

以下是引用2474842866在2019/5/27 18:00:00的发言：
加载出来？本来可以加载的，但是在currentchangge中加了代码，和下面表一起不显示了

 

不可能，请认认真真测试。
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/28 10:37:00 [只看该作者]

 

请把子表数据也全部加载出来，才能筛选的。

 

 
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询