功能区、右键怎么写代码到授权表，实现授权管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口和按钮学会了代码如下：

For Each dr As DataRow In DataTables("授权表").Select("分组 = ' " & user.Group & " ' And 表名 = '" & e.Form.Group & "'")

e.form.controls(dr("列名")).Visible = Not dr("不可见")

e.form.controls(dr("列名")).Visible = Not dr("不可编辑")

功能区的，如“编辑”怎么修改都提示错误。

For Each dr As RibbonTabs In DataTables("授权表").Select("分组 = ' " & user.Group & "' And 表名 = ' " & e.Tab.Group & "'")

e.Tab.RibbonTabs(dr("列名")).Visible = Not dr("不可见")

e.Tab.RibbonTabs(dr("列名")).Visible = Not dr("不可编辑")

此主题相关图片如下：qq截图.jpg

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