以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请帮助给分析解决?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32419)

--  作者:lyfxybc
--  发布时间:2013/5/2 8:13:00
--  请帮助给分析解决?

请帮助给分析解决?在项目事件里设置(loaduseseting)以下代码

If User.Group = "成品检验"   Then
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False
RibbonTabs("系统功能").Groups("锁定系统").Items("管理员_密码修改").Enabled = False
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = True
Else
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = False
End If
If User.Group = "成品称重"   Then
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False


RibbonTabs("系统功能").Groups("锁定系统").Items("管理员_密码修改").Enabled = False
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = True
Else
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = False

End If

为什么“成品称重”进入显示,而前面的成品输入“不显示”,不能进入。


--  作者:Bin
--  发布时间:2013/5/2 8:33:00
--  
而前面的成品输入“不显示”,不能进入。  
你是想说 RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = False 这段代码未执行吗?

--  作者:lyfxybc
--  发布时间:2013/5/2 11:54:00
--  

以“成品检验”登录后,

这句

RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = True
不执行,“成品录入”菜单成灰色,

 

删除下列代码就执行,“成品录入”菜单就执行。

If User.Group = "成品称重"   Then
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False


RibbonTabs("系统功能").Groups("锁定系统").Items("管理员_密码修改").Enabled = False
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = True
Else
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = False

End If


--  作者:Bin
--  发布时间:2013/5/2 11:55:00
--  

If User.Group = "成品称重"   Then
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False


RibbonTabs("系统功能").Groups("锁定系统").Items("管理员_密码修改").Enabled = False
RibbonTabs("系统功能").Groups("数据备份").Items("数据恢复").Enabled = False
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = True
Else
RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = False

End If

原因很简单.因为你在这里又给他赋值为True了.


--  作者:lyfxybc
--  发布时间:2013/5/2 18:41:00
--  
谢谢,我看看