主题：为什么e.cancel不起作用

If e.DataCol.Name = "交货数量" Then
   
    If e.DataRow("未交货数量")  < 0 Then
        msgbox("出货数量大于订单数量,请注意核实")
        Return
    End If
   
    If e.DataRow("库存数量")  < 0 Then
        msgbox("出货数量大于库存数量,请修改出库数量或先完成入库操作")
        e.cancel=True
        Return
    End If

    Dim filters As String
    Dim drs As DataRow = e.DataRow
    Dim prs As DataRow
    filters = " 客户订单号 = '" & drs("客户订单号") & "' And 客户产品号 = '" & drs("客户产品号") & "' And 订单行号 = '" & drs("订单行号") & "'"
    prs = DataTables("订单明细表").Find(filters) '在订单明细表中筛选出符合要求的数据
    drs("订货数量") = prs("订货数量")   '取得该产品的订货数量
   
End If