以下代码我放在DataColChanging里面,为什么起不到作用呢?
很简单的一个功能就是如果当前表的交货数量值发生变化(输入新值或进行了修改)导致了未交货数量<0,就提示"出货数量大于订单数量,请注意核实",如果库存数量<0,就提示出货数量大于库存数量,请修改出库数量或先完成入库操作。
未交货数量 = 订单数量 - 累计出货数量
库存数量来源于库存表
假设订单数量是90,累计出货数量0,库存数量50,本次交货数量95个,在新增行后输入交货数量95,应该提示 "出货数量大于订单数量,请注意核实",和出货数量大于库存数量,请修改出库数量或先完成入库操作。 但是没有任何提示,但是如果对交货数量进行修改就会出现这2个提示,这是为什么呢?
我的代码看了半天也没有发现错误呀!
请高手帮 我看下,谢谢了。
If e.DataCol.Name = "交货数量" Then
If e.DataRow("未交货数量") < 0 Then
msgbox("出货数量大于订单数量,请注意核实")
e.cancel=True
End If
If e.DataRow("库存数量") < 0 Then
msgbox("出货数量大于库存数量,请修改出库数量或先完成入库操作")
e.cancel=True
Return
End If
End If