Foxtable(狐表)用户栏目专家坐堂 → 请帮助给分析解决?


  共有4735人关注过本帖树形打印复制链接

主题:请帮助给分析解决?

帅哥哟,离线,有人找我吗?
lyfxybc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1290 积分:9826 威望:0 精华:0 注册:2012/9/19 21:13:00
请帮助给分析解决?  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/2 8:33:00 [只看该作者]

而前面的成品输入“不显示”,不能进入。  
你是想说 RibbonTabs("生产管理").Groups("成品管理").Items("成品录入").Enabled = False 这段代码未执行吗?

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1290 积分:9826 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1290 积分:9826 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2013/5/2 18:41:00 [只看该作者]

谢谢,我看看

 回到顶部