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


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

主题:[求助]怎么点击上面表格使得下面的表格自动筛选呢?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


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

 

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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中加了代码,和下面表一起不显示了

 

不可能,请认认真真测试。


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


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

 

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

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/28 12:28:00 [显示全部帖子]

 

你父表的关联列是什么?你子表的关联列是什么?列名对应,才行。

 

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/28 15:48:00 [显示全部帖子]

 

代码没问题。请做一个内部数据源的,可以正常执行的例子发上来测试。

 

 


 回到顶部