当订购数量，超过计划量，如何防止离开当前编辑单元格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一个采购系统，计划单明细和订购单明细关联。如果计划量10个，订购量输入11个时，如何禁止离开当前单元格。

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

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

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

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

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

e.Cancel = True

End If

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