- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70517)
-- 发布时间：2015/6/23 17:40:00
-- [求助]
此主题相关图片如下：11.bmp
我设置了administrator 和 user 两个用户组。
怎样写 才能在用户组是administrator时 图上的菜单才生效？
-- 发布时间：2015/6/23 17:42:00
--
select case user.group
case "administrator"
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
case "user"
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
end select
-- 发布时间：2015/6/24 10:31:00
--
以下是引用Bin在2015/6/23 17:42:00的发言：
我用了 但是没有效果 现在暂时用这段代码改的表权限 select case user.group
case "administrator"
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
case "user"
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
end select
If User.Group = "录入" Then
DataTables("版本情况").AllowEdit = True
DataTables("编辑信息采用表").AllowEdit = True
DataTables("URL表").AllowEdit = True
Else
DataTables("版本情况").AllowEdit = False
DataTables("编辑信息采用表").AllowEdit = False
DataTables("URL表").AllowEdit = False
End If
但是我还是想禁用菜单. 上个列子求帮我看一下
顺便我想问一下 用默认的登录窗口 那个下拉列能否把开发者账号隐藏
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cqyy_201506241022.zip |
[此贴子已经被作者于2015/6/24 10:32:41编辑过]
-- 发布时间：2015/6/24 10:38:00
--
参考代码
Dim bblr As RibbonMenu.Button = RibbonTabs("CQYY").Groups("录入功能").Items("版本录入")
If user.Group = "录入" Then
bblr.Visible = False
ElseIf user.group = "查询" Then
bblr.Visible = False
ElseIf user.group = "管理" Then
bblr.Visible = True
Else
bblr.Visible = False
End If