Foxtable(狐表)用户栏目专家坐堂 → 加了授权的代码,还是能看到内容


  共有1996人关注过本帖平板打印复制链接

主题:加了授权的代码,还是能看到内容

美女呀,离线,留言给我吧!
DLW77
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:1650 威望:0 精华:0 注册:2018/2/26 13:15:00
加了授权的代码,还是能看到内容  发帖心情 Post By:2018/7/31 20:03:00 [只看该作者]

我在AfterOpenProject中加了这个代码,列名不可见部分还是显示出来。整个表不可见的,就没显示出来,但是列名不可见的,就不行。
图片点击可在新窗口打开查看此主题相关图片如下:{84jairwu6vl_gk_p~n.png
图片点击可在新窗口打开查看
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Group & "'" )
        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

 回到顶部