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


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

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


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：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
如何处理？
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/10 9:44:00 [显示全部帖子]

明白了，谢谢！

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


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/10 10:09:00 [显示全部帖子]

另外，我在

afteropenproject写代码

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

开发者的账号显示没问题，但用其他账号打开项目后，下方还是会显示关联表，怎么处理？
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：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
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/24 10:37:00 [显示全部帖子]

把afteropenproject里的删掉，写到
loadusersetting里？
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2019/4/28 12:11:00 [显示全部帖子]

写在loadusersetting里就没问题了！
谢谢！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 5 次数据查询