目录树授权与菜单管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树授权与菜单管理

共有1612人关注过本帖树形打印复制链接主题：目录树授权与菜单管理

dengk03

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

目录树授权与菜单管理 发帖心情

Post By：2017/10/6 22:12:00 [显示全部帖子]

想通过目录树授权来管理不同角色对于菜单项的是否可见。

RibbonTabs(“ribbontab1”)(“group1”)(“item1”).Visible = Functions.Execute("授权","ribbontab1","group1"，“item1”)

RibbonTabs(“ribbontab1”)(“group1”)(“item2”).Visible = Functions.Execute("授权","ribbontab1","group1"，“item2”)

RibbonTabs(“ribbontab1”)(“group1”).Visible = Functions.Execute("授权","ribbontab1","group1"，“”)

。。。。。。。

诸如此类，要把所有的菜单按钮全部写一遍，很麻烦，有没有什么快捷的代码可以遍历所有菜单按钮？

我琢磨用for语句遍历所有ribbontab，group，item做组合，但是许多组合是不存在的，过程中会提示出错，如何剔除这些不存在的组合？

dengk03

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

Post By：2017/10/7 11:03:00 [显示全部帖子]

有没有什么语句可以让代码不报错继续下去？

比如遍历到RibbonTabs("1")("2")("3")，本不存在这个item，如何让代码自动绕开这个继续遍历？

dengk03

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

Post By：2017/10/7 11:53:00 [显示全部帖子]

[此贴子已经被作者于2017/10/7 11:56:52编辑过]

主题：目录树授权与菜单管理