请教多用户权限编辑,经理可以编辑所有,员工只能编辑权限内数据,某一行数字被编辑后,除非经理,其他人均不允许删除该行,也不允许编辑。但应用时出问题,变成所有人都可以编辑。
prepareedit事件如下:
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
startedit事件如下:
If User.name <> "赵经理" And e.Row.Isnull("启用操作时间")=False Then
MessageBox.Show("对于已经启用的序号,只有经理才能编辑!", "提示")
e.Cancel = True
End If
beforedeletedatarow事件如下:
If User.name <> "赵经理" And e.DataRow.Isnull("启用操作时间")=False Then
MessageBox.Show("对于已经启用的序号,只有经理才能删除!", "提示")
e.Cancel = True
End If
[此贴子已经被作者于2016/10/1 9:41:13编辑过]