主题：关于DataColChanging代码事件

以下代码我放在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

If e.DataCol.Name = "交货数量" Then
    If e.DataRow("未交货数量") - e.NewValue  < 0 Then
        msgbox("出货数量大于订单数量,请注意核实")
        e.cancel=True

        Return
    End If
   
    If e.DataRow("库存数量") - e.NewValue  < 0 Then
        msgbox("出货数量大于库存数量,请修改出库数量或先完成入库操作")
        e.cancel=True
        Return
    End If   
End If