主题：[求助]AfterCheckRow

AfterCheckRow代码如下:

If e.Row.Checked  Then

    If (MessageBox.show("订单编号:" & e.Row("订单编号") & "+" & "临时版本编号:" & e.Row("临时版本编号") & "+" & "产品化编号:" & e.Row("产品化编号") & "三者确定要锁定吗?","提醒产线",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes) Then

        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("订单编号") & "'")

        rr("log") = e.Row("订单log") & vbcrlf & rr("log")

        e.Row.Locked = True

        e.Row.Checked = True

    Else

        e.Row.Checked  = False

    End If

End If

问题，怎么勾线了复选框后，然后点击msgbox的确定按钮后，复选框变为没有勾选状态，这是怎么回事？