主题：请教权限管理问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理.table

我在设计窗口表和表的编辑功能权限时，代码如下：

If User.Type = UserTypeEnum.User Then
    For Each t As Table In Tables
        t.AllowEdit=False
        If t.Name.Contains("_") Then
            t.AllowEdit=False
            Dim ary() As String = t.Name.Split("_")
            Dim fdr As DataRow = DataTables("权限管理").Find("用户名 = '" & UserName & "' and 窗口 = '" & ary(0) & "' and 表名 = '" & ary(1) & "'")
            If fdr IsNot Nothing Then
                t.AllowEdit = fdr("可编辑")
            Else
                t.AllowEdit = False
            End If
        Else
            Dim fdr As DataRow = DataTables("权限管理").Find("用户名 = '" & UserName & "' and 表名 = '" & t.Name & "'")
            If fdr IsNot Nothing Then
                t.AllowEdit = fdr("可编辑")
            End If
        End If
    Next
End If

加上上面红字，全部表不能编辑，去掉红字，全部表都能编辑，请教大师指点如何实现用户对不同表和窗口表的编辑权限设置。

执行过程中遇到以下问题麻烦指教：

1、新增用户应该是执行 t.AllowEdit = False，但是新增用户拥有全部编辑功能，

2、打开窗口的主表没有加载，如何处理？

3、李三对两个窗口表都不能编辑。

我完全按照上述代码进行权限设置，使用外部表只做了一点改动：用户名 = '" & User.Name & "' 改为用户名 = '" & _UserName & "'

项目执行结果是:没有给权限的用户可以编辑好多表,设置某个表只有某个用户可以编辑却实现不了,请教可能是什么原因?我再好好排查,谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理_201310101659.zip

麻烦老师指教对没有加载表如何进行权限设置，非常感谢BIN老师和有点甜老师的指教。