可视化授权 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可视化授权

共有858人关注过本帖树形打印复制链接主题：可视化授权

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/26 8:48:00 [显示全部帖子]

窗口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("不可编辑")

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/26 11:14:00 [显示全部帖子]

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/26 11:20:00 [显示全部帖子]

授权表里把记录的用户名改为分组名就行了

主题：可视化授权