- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 功能区、右键怎么写代码到授权表，实现授权管理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116507)
-- 发布时间：2018/3/26 0:29:00
-- 功能区、右键怎么写代码到授权表，实现授权管理
窗口和按钮学会了代码如下：
此主题相关图片如下：qq截图.jpg
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("不可编辑")
Next
功能区的，如“编辑”怎么修改都提示错误。
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("不可编辑")
Next
此主题相关图片如下：qq截图.jpg-- 发布时间：2018/3/26 9:19:00
--
参考代码
For Each dr As dr In DataTables("授权表").Select("分组 = \'" & user.Group & "\' And 类型=\'菜单\'")
RibbonTabs(dr("功能区")).Visible = Not dr("不可见")
RibbonTabs(dr("功能区")).Visible = Not dr("不可编辑")
Next