Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "增值税fa piao开piao登记.合同编号","增值税fa piao开piao登记.申请日期","增值税fa piao开piao登记.外经证开piao日期"
If User.IsRole("开piao录入") Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
MessageBox.show("你不能修改该记录!")
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select
原已审批的记录已锁定,在窗口全局事件Enter中加入上面代码后,只要是角色为“开piao录入”的用户可以更改已锁定的记录数据。我的目的是如果已审批锁定的行任何用户不能修改,除非取消锁定。请老师指教一下。谢谢!