Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联表显示


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

主题：关联表显示
美女呀，离线，留言给我吧！
13775189031
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：833 积分：5783 威望：0 精华：0 注册：2017/12/19 14:46:00 		关联表显示  发帖心情 Post By：2019/4/9 17:07:00 [只看该作者]

父表 A，子表B
已经在授权表中设置了显示权限，账户1打开项目后不可见子表B中的列a、b
但在父表A下显示的关联表仍然显示子表B中的列a、b
如何处理？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你对关联表也要设置。管理表的表名是 【表A.表B】

 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：833 积分：5783 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/10 9:44:00 [只看该作者]

明白了，谢谢！

 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：833 积分：5783 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/10 10:09:00 [只看该作者]

另外，我在

afteropenproject写代码

tables("表A.表B").Visible = false，打开项目后在表A下方不显示关联表

开发者的账号显示没问题，但用其他账号打开项目后，下方还是会显示关联表，怎么处理？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、在代码后面加入msgbox，看是否执行了

 

tables("表A.表B").Visible = false

msgbox(1)

 

2、你其它地方是不是还写有显示的代码？比如loadusersetting、窗口afterload事件等。
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：833 积分：5783 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/24 8:23:00 [只看该作者]

1.tables("表A.表B").Visible = false

msgbox(1)

代码执行了，显示

生产管理系统.project

1
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：833 积分：5783 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/24 8:25:00 [只看该作者]

loadusersetting里只有以下两段代码

Select Case user.group
    Case "营销员"
        DataTables("合同台账").LoadFilter = "合同承办人或签约人 = '" & User.Name & "'"
    Case Else
        DataTables("合同台账").LoadFilter = ""
End Select
DataTables("合同台账").Load()

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

在你loadusersetting事件最后，写代码，如

 

tables("表A.表B").Visible = false
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：833 积分：5783 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/24 10:37:00 [只看该作者]

把afteropenproject里的删掉，写到
loadusersetting里？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用13775189031在2019/4/24 10:37:00的发言：
把afteropenproject里的删掉，写到
loadusersetting里？

 

两个地方都写后测试。
 回到顶部
总数 11 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.06250 秒, 4 次数据查询