- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树授权与菜单管理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107658)
-- 发布时间：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做组合，但是许多组合是不存在的，过程中会提示出错，如何剔除这些不存在的组合？
-- 发布时间：2017/10/7 10:12:00
--
参考
http://www.foxtable.com/webhelp/index.htm?page=1926.htm
| 下载信息 [文件大小：348.0 KB 下载次数：202] | |
 点击浏览该文件:菜单递归.table |
-- 发布时间：2017/10/7 11:03:00
--
有没有什么语句可以让代码不报错继续下去？
比如遍历到RibbonTabs("1")("2")("3")，本不存在这个item，如何让代码自动绕开这个继续遍历？
-- 发布时间：2017/10/7 11:22:00
--
使用2楼的遍历有什么问题？
on error resume Next
For i As Integer = 1 To 100
output.show(Tables("表a").rows(i)("第一列"))
Next
-- 发布时间：2017/10/7 11:53:00
--
[此贴子已经被作者于2017/10/7 11:56:52编辑过]