BeforeCheckRow代码:
If e.Row("订单编号") = "" Or e.Row("产品化编号") = "" Then
MessageBox.Show("订单编号,临时版本编号,产品化编号三者尚未绑定,故不能锁定","锁定请提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
e.Cancel = True
End If
If e.Row.Checked = True Then
Select Case user.Group
Case "产线经理","开发者"
If (MessageBox.show("你确定要解绑吗?","解绑前提醒你一下",MessageBoxButtons.YesNo,MessageBoxIcon.Question) =DialogResult.Yes) = True Then
e.Row.Checked = False
Else
e.Cancel = True
End If
Case Else
MessageBox.show("很不辛的告诉你,你没权限解绑","解绑前善意的提醒你一下",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End Select
End If
AfterCheckRow代码如下:
If e.Row.Checked Then
If (MessageBox.show("订单编号:" & e.Row("订单编号") & "+" & "临时版本编号:" & e.Row("临时版本编号") & "+" & "产品化编号:" & e.Row("产品化编号") & "三者确定要锁定吗?","提醒产线",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes) Then
Systemready = False
e.Row("绑锁解绑") = "锁定"
e.Row("订单log") = "订单编号:" & e.Row("订单编号") & "+" & "临时版本编号:" & e.Row("临时版本编号") & "+" & "产品化编号:" & e.Row("产品化编号") & " " & user.name & " " & Date.now & " " & "已锁定" & vbcrlf & e.Row("订单log")
Dim rr As DataRow = DataTables("订单主表").Find("订单编号 = '" & e.Row("订单编号") & "'")
If rr IsNot Nothing Then
rr("log") = e.Row("订单log") & vbcrlf & rr("log")
End If
e.Row.Checked = True
e.Row.Locked = True
Systemready = True
Else
e.Row.Checked = False
End If
End If
感觉做取消勾选，出现死循环。
加好友 
发短信
Post By：2015/10/20 22:12:00 [只看该作者]
