主题：功能区、右键怎么写代码到授权表，实现授权管理

参考代码

For Each dr As dr In DataTables("授权表").Select("分组 = '" & user.Group & "' And 类型='菜单'")
    RibbonTabs(dr("功能区")).Visible = Not dr("不可见")
    RibbonTabs(dr("功能区")).Visible = Not dr("不可编辑")
Next