Select Case e.Col.name Case "审核退回意见", "批准退回意见" If e.Row.IsNull("确认") = False Then If e.Col.Name = "审核退回意见" Then If User.Isrole("电梯审核") = False Then e.Cancel = True End If Else If e.Col.Name = "批准退回意见" Then If User.Isrole("审批") = False Then e.Cancel = True End If End If Else e.cancel = True End If Case Else If e.Row.IsNull("确认") = False Then e.cancel = True End If End Select
|