窗口中的表,用户名登录,按照帮助里的分组授权,没起作用,请老师指点
[此贴子已经被作者于2024/9/25 18:50:29编辑过]
窗口afterload,通过窗口表对应的主表名称查询权限表里这个表的权限,重新设置一遍。查询的时候把表名也加上就可以查询指定表的权限,比如
For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "' and 表名='表A'" )
Tables("窗口1_table1").Cols(dr("列名")).Visible = Not dr("不可见")
Tables("窗口1_table1").Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
不好意思老师,我说的是登录系统时是用户名,而授权表和代码用的是分组
For
Each dr
As
DataRow
In
DataTables("授权表").Select("分组名 = '" & User.Group & "'" )
类似这样的设置行不行
[此贴子已经被作者于2024/9/26 11:19:35编辑过]