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


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

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

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


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

 

把你的sql语句写在一起,即可的。具体问题,做一个实例发上来测试。

 

 


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


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

复杂的sql语句的sqlquery窗口,不能直接使用loadfilter和load。

 

请用fill添加表格数据 http://www.foxtable.com/webhelp/scr/2912.htm

 


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


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

ids.Trim(",")

 

改成

 

ids = "(" & ids.Trim(",") & ")"


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


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

实例发上来测试。

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


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

 

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

 

 


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

 

上传一个对应实例测试。

 

 


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

 

上传一个对应实例测试。

 


 回到顶部