主题：[求助]AfterCheckRow

这句不用写

e.Row.Checked = False

这句不用写

e.Row.Checked = False

是指beforecheckedrow？怎么勾选了复选框，再次打开还是没有勾选？

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

                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

                systemready = True

            Else

                e.Cancel = True

            End If

        Case Else

            MessageBox.show("很不辛的告诉你,你没权限解绑","解绑前善意的提醒你一下",MessageBoxButtons.OK,MessageBoxIcon.Information)

            e.Cancel = True

    End Select

End If

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

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