主题：菜单栏可视化授权问题

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

点击浏览该文件:管理项目1.zip

菜单栏的UserLoadSetting之前用的系统内置的用户数据，用User.Group 的时候是正常可用的菜单可以可视化，但是改成自定义的用户数据的_UserGroup就直接出现停止工作了，请教下各位老师问题出在哪里。。

代码写到登陆按钮的click事件即可。

 

If _UserGroup <> "总经办" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Visible = False
    RibbonTabs("Common").Visible = False
    RibbonTabs("Print").Visible = False
    Dim rcgz As DataRow
    rcgz = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '日常工作'")
    If rcgz("使用权限") = True Then
        RibbonTabs("Common").Visible = True
    End If
    Dim sjb As DataRow
    sjb = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '数据表'")
    If sjb("使用权限") = True Then
        RibbonTabs("Table").Visible = True
    End If
    Dim glxm As DataRow
    glxm = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '管理项目'")
    If glxm("使用权限") = True Then
        RibbonTabs("Project").Visible = True
    End If
    Dim dysc As DataRow
    dysc = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '打印输出'")
    If dysc("使用权限") = True Then
        RibbonTabs("Print").Visible = True
    End If
    Dim zx As DataRow
    zx = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '杂项'")
    If zx("使用权限") = True Then
        RibbonTabs("Other").Visible = True
    End If
End If

好的谢谢甜老师