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

此主题相关图片如下：2019-01-05.png

老师我想实现如下功能，这个代码如何修改

“由于多数表属于设置表，对不普通用户不显示。想根据不同部门来显示不同的表，对各别部门人员放开对某个表某列的编辑权限”

我的思路是这样的，先把所有表都不显示，再根据授权的设定来控制显示哪些表

在LoadUserSetting 的代码如下：

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

For Each dr As DataRow In DataTables("授权表").Select("用户分组 = '" & User.Group & "'" )

Tables(dr("表名")).Visible = True

Tables(dr("表名")).AllowEdit =dr("可编辑")

If dr.IsNull("姓名")=False And dr.IsNull("列名")=False Then ' 表中姓名及列名不为空

Tables(dr("表名")).Cols(dr("列名")).AllowEdit = True

End If

红色部分代码无效，授权表中增加姓名及列名，但用此用户登录后部分列还是无法编辑，老师代码这样有问题吗？

想在授权表的表名及列名作一下拉列表，把项目中所有的表名及相应表中的全部列显示出来方便输入，谢谢

代码修改后，可见列不进行控制了，会进行删除这列

[此贴子已经被作者于2019/1/5 14:35:16编辑过]

For Each t As Table In Tables

t.Visible = True

t.AllowEdit = True

For Each c As Col In t.Cols

c.Visible = True

c.AllowEdit = True

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

For Each dr As DataRow In DataTables("授权表").Select("用户分组 = '" & User.Group & "' and 姓名 = '" & User.Name & "'" )

If dr.IsNull("列名") Then

Tables(dr("表名")).Visible = Not dr("不可见")

Tables(dr("表名")).AllowEdit = Not dr("不可编辑")

Else

Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")

Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")

End If

For Each dr As DataRow In DataTables("授权表").Select("用户分组 = '" & User.Group & "' and 姓名 = '" & User.Name & "'" )

这个分组与姓名不能同时查找吧，一个组可以显示多个表，这个组中的某人可以编辑其中一个表的某一列，所以先查找这个组能显示的表，再根据列来判断某列是否能编辑

老师这个想在授权表的表名及列名作一下拉列表，把项目中所有的表名及相应表中的全部列显示出来方便输入，这个代码是如何写的，

这样1楼代码没有问题，前提是必须保证姓名和列名不为空的行必须是勾选“可编辑”的。

建议还是按照帮助的用法：先把所有表都显示，然后控制那些表和列不显示。

如果反过来先把所有表都不显示，然后控制那些表和列显示，这样的控制很麻烦。

把项目中所有的表名及相应表中的全部列显示出来参考：

主题：权限表控制