请教多用户权限编辑，经理可以编辑所有，员工只能编辑权限内数据，设置后出问题，变成所有人都可以编辑。坐等，谢谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If user.name="赵经理" Then '经理可以编辑所有

Else e.DataRow.Isnull("启用操作时间")=False Then '经理才能能编辑已经启用的行

If user.name <> "赵经理" Then

e.Cancel = True

End If

Else

Select Case e.Col.name

Case "序号","资料审核备注","缺失资料","补齐时间","临时到期日","资料是否齐全","是否亲办","联系人是否含","是否核实被授权人","意愿核实日期","意愿审核日期","启用操作时间","启用备注","是否验"

If user.name <> "赵经理" Then e.cancel=False '经理才能编辑这些列

Case "序号","资料审核备注","缺失资料","补齐时间","临时到期日","资料是否齐全","是否亲办","联系人是否含","是否核实被授权人"

If user.name<>"靓女1" Then e.cancel=True

Case "意愿核实日期"

If user.name<>"靓女2" Then e.cancel=True

Case "意愿审核日期","启用操作时间","启用备注"

If user.name<>"籽籽" Then e.cancel=True

Case "是否验印"

If user.name<>"靓女2" Then e.cancel=True

End Select

End If

PrepareEdit事件：

If user.name="赵经理" Then '经理可以编辑所有

Else e.Row.Isnull("启用操作时间")=False Then '经理才能能编辑已经启用的行

If user.name <> "赵经理" Then

e.Cancel = True

End If

Else

Select Case e.Col.name

If user.name <> "赵经理" Then e.cancel=False '经理才能编辑这些列

Case "序号","资料审核备注","缺失资料","补齐时间","临时到期日","资料是否齐全","是否亲办","联系人是否含","是否核实被授权人"

If user.name<>"靓女1" Then e.cancel=True

Case "意愿核实日期"

If user.name<>"靓女2" Then e.cancel=True

Case "意愿审核日期","启用操作时间","启用备注"

If user.name<>"籽籽" Then e.cancel=True

Case "是否验印"

If user.name<>"靓女2" Then e.cancel=True

End Select

End If

If user.name<>"陈靓女" And user.name<>"戚靓女" Then e.cancel=True

主题：请教多用户权限编辑，经理可以编辑所有，员工只能编辑权限内数据，设置后出问题，变成所有人都可以编辑。坐等，谢谢。