此段代码放在项目的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