主题：当订购数量，超过计划量，如何防止离开当前编辑单元格

在订购单明细DataColChanged ,用以下代码，单元格数值，还是可以离开。DataColChanging，因为未写入值，很难和计划单做对比，尤其是一个计划单对应多个订购单。所以想，先把值写进去，再根据未够数量判断，然后锁定在单元格，改好后才允许离开。

只好放在DataColChanged，数量变了后，再做判断。超了，恢复旧值。不知道这样会不会有其他问题

If e.DataCol.Name = "数量" Then

    Dim pr As DataRow =e.DataRow.GetParentRow("计划单明细")

    If pr("未购数量") < 0 Then

        MessageBox.Show("订购量超过计划量")

        e.DataRow("数量") = e.OldValue

    End If

End If