Foxtable(狐表)用户栏目专家坐堂 → 如何在主窗口中同时放父表及关联表


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

主题:如何在主窗口中同时放父表及关联表

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
如何在主窗口中同时放父表及关联表  发帖心情 Post By:2014/7/29 14:54:00 [只看该作者]

由于业务及界面需要把客户表(父表)和订单明细表(子表)同时放在一个主窗口中,如何实现与关联表同等功能?如果有例子麻烦老师发个链接学习一下。

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/7/29 14:55:00 [只看该作者]

帮助中只是说用Table控件表,而我要把父表也显示在同一主窗口界面中。

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


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

 一样这样写,只要设置好父表的CurrentChanged事件即可。
[此贴子已经被作者于2014-7-29 14:57:55编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/7/29 15:42:00 [只看该作者]

绑定父表的TABLE不能用副本的方式吗?

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


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

 回复4楼,绑定表,也可以设置副本啊。你现在设置不了?


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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/7/29 16:07:00 [只看该作者]

老师见附件,点主表子表没有跟着联动,您帮忙看一下哪里不对。

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/7/29 16:07:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试项目.rar


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


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

代码

 

 

If Forms("窗口1").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口1_Table1")
    With Tables("窗口1_Table2")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "客户编号 = " & .Current("客户编号")
        End If
    End With
End If


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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/7/29 16:59:00 [只看该作者]

谢谢老师,如果将上面的CurrentChanged事件代码写在主表属性中的CurrentChanged事件应该如何改?


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


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

If e.Table.Name = "窗口1_Table2" Then
    Dim t As Table = Tables("窗口1_Table1")
    With e.Table
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "客户编号 = " & .Current("客户编号")
        End If
    End With
End If

 回到顶部
总数 19 1 2 下一页