主题：按照视频里的做，达不到效果

你逻辑有问题。

 

你授权表，应该有这些列，如 表名、列名、窗口名、控件名、菜单名、功能区、功能组 ......

 

表的权限、窗口的权限、菜单的权限，分开处理的才对。

你提示的错误，应该是你LoadUserSetting事件代码有问题吧？贴出代码看看。

加入一个【类型】列，标记好此行，是窗口权限、还是表格权限、还是菜单权限

 

For Each dr As DataRow In DataTables("授权表").Select("分组 = '" & User.Group & "' and 类型='表格'" )

或者是修改代码

 

For Each dr As DataRow In DataTables("授权表").Select("分组 = '" & User.Group & "'" )

    If Tables.Contains(dr("表名")) Then

 

 

   End If

Next

上传你的mdb数据库，不然无法打开项目测试。

 

http://www.foxtable.com/webhelp/scr/1057.htm

 

注意红色代码

 

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("分组 = '" & User.Group & "'" )
        If Tables.Contains(dr("表名")) Then
            If dr.IsNull("列名") Then
                Tables(dr("表名")).Visible = Not dr("不可见")
                Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
                RibbonTabs("编辑").Visible = False
            Else
                Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
                Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
                RibbonTabs("编辑").Visible = True
            End If
        End If
    Next
End If  '以上为细化权限管理

1、注意红色代码

 

For Each dr As DataRow In DataTables("授权表").Select("分组 = '" & _usergroup & "' ")
    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

 

2、你不能使用 user.name、user.group， 改成这样_username、_usergroup

 

我测试没问题。

 

LoadUserSetting事件，不需要写任何代码的，删除你原来的代码。

 

其余都不需要修改，请使用你原来的项目测试。

登陆窗口Enter事件代码问题，删除即可。 

 

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

点击浏览该文件:药店水质分析系统 (2).table