Foxtable(狐表)用户栏目专家坐堂 → [求助]两张sqlquery表可以设置父子连接关联表吗


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

主题:[求助]两张sqlquery表可以设置父子连接关联表吗

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


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



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


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

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


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


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

 

你说的没有关联,指什么?点击上面的表格,筛选下面的表格?那你需要编写currentChanged事件。

 

 


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


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

对就是点击上面表格,下面自动筛选

 


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


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

我在下面按照之前的代码写,currentchange事件后,狐表直接崩溃了,没有响应

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


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

以下是引用2474842866在2019/5/27 14:40:00的发言:
我在下面按照之前的代码写,currentchange事件后,狐表直接崩溃了,没有响应

 

贴出你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
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你好,老师,还在吗?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/27 17:00: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

 

上传一个对应实例测试。

 


 回到顶部
总数 18 上一页 1 2