以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  <授权表> 无法遮蔽住某些数据表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194008)

--  作者:edisontsui
--  发布时间:2024/11/2 8:30:00
--  <授权表> 无法遮蔽住某些数据表
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

上面是 loadusersetting 里面的代码,目的是根据 <授权表> 来掩盖住某些数据表。但是执行之后,个别数据表往往无法被掩盖住。请问是什么问题呢?谢谢。
比如下面的 <授权表> 就遮蔽不住。


图片点击可在新窗口打开查看此主题相关图片如下:图片1102.jpg
图片点击可在新窗口打开查看




--  作者:有点蓝
--  发布时间:2024/11/2 9:08:00
--  
我测试没有问题。说明登录用户不是这个分组
--  作者:edisontsui
--  发布时间:2024/11/2 9:45:00
--  
用户分组没有问题的。现在遇到的问题是,同一个用户,同一个表,有时这个表可以被遮住,有时又遮不住。
--  作者:有点蓝
--  发布时间:2024/11/2 9:53:00
--  
请上传实例说明