[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：11.bmp

我设置了administrator 和 user 两个用户组。

怎样写才能在用户组是administrator时图上的菜单才生效？

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

参考帮助 http://www.foxtable.com/help/topics/2438.htm

以下是引用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

参考帮助 http://www.foxtable.com/help/topics/2438.htm

我用了但是没有效果现在暂时用这段代码改的表权限

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编辑过]

参考代码

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

主题：[求助]