以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Ribbon按钮设置不起作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134200)

--  作者:martin723
--  发布时间:2019/4/29 15:56:00
--  [求助]Ribbon按钮设置不起作用
此段代码放在项目的LoadUserSetting和菜单的LoadUserSetting里面,都不起作用,按键始终能用。
怎样才能使只有开发者、管理员、生产日报管理员角色登录时按键能用,其他登录用户不能使用?
If user.Roles.Contains("生产日报_管理员") OrElse UserTypeEnum.Developer OrElse UserTypeEnum.Administrator Then
    RibbonTabs("Common").Groups("功能组1").Items("上传数据").Enabled  = True
Else
    RibbonTabs("Common").Groups("功能组1").Items("上传数据").Enabled  = False
End If

--  作者:有点甜
--  发布时间:2019/4/29 15:59:00
--  

If user.Roles.Contains("生产日报_管理员") OrElse user.type = UserTypeEnum.Developer OrElse user.type = UserTypeEnum.Administrator Then


--  作者:martin723
--  发布时间:2019/4/29 16:00:00
--  
谢谢!