主题：[求助]AfterCheckRow

代码没问题，至少我这样测试没问题。

 

If e.Row.Checked  Then
   
    If (MessageBox.show("123456","提醒产线",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes) Then
       
        e.Row.Locked = True
       
        e.Row.Checked = True
       
    Else
       
        e.Row.Checked  = False
       
    End If
   
   
End If

If rr IsNot Nothing Then rr("log") = e.Row("订单log") & vbcrlf & rr("log")

做例子上来，2楼代码没问题

应该是触发了DataColChanged事件

 

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.Locked = True
        e.Row.Checked = True
systemready = True       
    Else
        e.Row.Checked  = False
    End If
End If

你修改值自然会触发datacolchanged事件啊。

 

锁定还可以勾选，要限制，在beforeCheckRow事件判断是否锁定了，锁定就e.Cancel = true

这句不用写

 

e.Row.Checked = False

勾选的，是临时的，不会保存起来，要保存，你只能用数据列去做。

 

最左边的勾选，是不会保存的，是临时的。