Foxtable(狐表)用户栏目专家坐堂 → 关于DataColChanging代码事件


  共有2858人关注过本帖树形打印复制链接

主题:关于DataColChanging代码事件

美女呀,离线,留言给我吧!
youngling
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:115 积分:895 威望:0 精华:0 注册:2012/12/18 16:55:00
关于DataColChanging代码事件  发帖心情 Post By:2014/12/22 23:11:00 [显示全部帖子]

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


 回到顶部