请教:
要让李四能看到菜单上的“切换用户”组件,下面这段代码有问题吗?
用李四登录,怎么看不到“切换用户”这个组件呢?
If user.Type <> UserTypeEnum.Developer Then
'1)对非开发者,隐藏 "Print" 功能区中的几个组件
RibbonTabs("Print").Groups("Advanced").Visible = False '隐藏专业报表
If user.Name = "李四 " Then
RibbonTabs("Print").Groups("Users").Items("Logon2").Visible = True '对李四显示该处"切换用户"
Else
RibbonTabs("Print").Groups("Users").Items("Logon2").Visible = False '对其他人隐藏该处"切换用户"
End If
'2)对非开发者,隐藏以下功能区(包括其中的全部组件)
RibbonTabs("Develop").Visible = False '隐藏"开发"功能区
End If