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

我想让只有课长级别的人才能处理“出勤相关”表的批准和批准人和批准日期三个列，其他人编辑不了这三列，，

课长级别的人只能处理“出勤相关”的这三个列，其他的列处理不了，

请问老师，我在LoadUserSetting中输入以下代码，不起作用，

请老师帮看看，问题出在哪里了，谢谢！

If User.Group = "课长" Then

DataTables("出勤相关").DataCols("批准").AllowEdit = True

DataTables("出勤相关").DataCols("批准人").AllowEdit = True

DataTables("出勤相关").DataCols("批准日期").AllowEdit = True

Else

DataTables("出勤相关").DataCols("批准").AllowEdit = False

DataTables("出勤相关").DataCols("批准人").AllowEdit = False

DataTables("出勤相关").DataCols("批准日期").AllowEdit = False

End If

If User.Group = "GL" Then

DataTables("出勤相关").DataCols("审核").AllowEdit = True

DataTables("出勤相关").DataCols("审核人").AllowEdit = True

DataTables("出勤相关").DataCols("审核日期").AllowEdit = True

Else

DataTables("出勤相关").DataCols("审核").AllowEdit = False

DataTables("出勤相关").DataCols("审核人").AllowEdit = False

DataTables("出勤相关").DataCols("审核日期").AllowEdit = False

End If

老师，加入代码后，没异常反应，但也没限制效果

我现在尝试在PrepareEdit中输入以下代码

If e.Col.Name = "审核" OrElse "审核人" OrElse "审核日期" Then

If User.Group <> "GL" Then

e.Cancel = True

End If

我想表达的是，只有GL级别的人才有资格编辑审核审核人审核日期三列

我的第一行代码不对，请老师帮改改，谢谢！

谢谢老师，这个问题解决了，

如何反过来，GL级别的人只能修改审核、审核人、审核日期 3个列，别的不能编辑，用下列代码，限制不了，

老师帮看看，问题出在哪里？

If e.Col.Name <> "审核" OrElse e.Col.Name <> "审核人" OrElse e.Col.Name <> "审核日期" Then

If User.Group = "GL" Then

e.Cancel = True

End If

老师，这个代码出现错误，

此主题相关图片如下：14.png

老师，在设置删除行权限时，我想要的结果是，只有录入者本人或管理员才能删除行，

写入以下代码：

If User.Name <> "录入员" = True And user.name <> "管理员" Then

MessageBox.Show("您不能删除他人的记录!", "提示")

e.Cancel = True

End If

运行结果是，管理员可以删除行，但录入者本人登录后，自己录入的行删除不了，出现提示，

老师帮看看错在哪里呗

解决了，太高效了，这两天，跟老师学到了不少东西，老师写的代码，有些还看不懂，

什么时候能达到老师的水平就好了，

老师，msgbox的用法，在帮助中没有找到，能发个地址吗？谢谢！

主题：权限设置