以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用户分组设置怎么不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77663)
--  作者：湛向京
--  发布时间：2015/11/23 12:45:00
--  用户分组设置怎么不起作用

请问：

我设置了默认用户登录，并利用外部表设置了自定义用户登录，为什么在菜单LoadUserSetting中设置了如下代码，却不起作用？

If User.Group = "材料计划" Then
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("技术管理").Visible = False
    RibbonTabs("设备保管").Visible = False
 Else
   If User.Group = "材料保管" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("设备保管").Visible = False
    RibbonTabs("技术管理").Visible = False
Else
   If User.Group = "设备计划" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("材料保管").Visible = False
    RibbonTabs("技术管理").Visible = False
Else
   If User.Group = "设备保管" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("材料保管").Visible = False
    RibbonTabs("技术管理").Visible = False
Else
   If User.Group = "技术管理" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("设备保管").Visible = False
    RibbonTabs("材料保管").Visible = False
End If
End If
End If
End If
End If
--  作者：大红袍
--  发布时间：2015/11/23 14:38:00
--  

1、加入msgbox，看是否触发LoadUserSetting事件代码？

 

2、如果你是定义 _UserName、_UserGroup这种，你就要把代码写到自己的登陆窗口里，而且不能用User.Name
--  作者：湛向京
--  发布时间：2015/11/23 15:29:00
--  

谢谢！