Foxtable(狐表)用户栏目专家坐堂 → 求助:增加行代码计算(已通过其他途径解决)


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

主题:求助:增加行代码计算(已通过其他途径解决)

帅哥哟,离线,有人找我吗?
hz1717
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:55 积分:554 威望:0 精华:0 注册:2012/9/2 18:58:00
求助:增加行代码计算(已通过其他途径解决)  发帖心情 Post By:2014/3/6 13:01:00 [只看该作者]

 老师好:
      我在设计的时候,出现如下问题,
      在自动新增加一行后, 新的“物料编号” 为当前副本表的  “物料编号”,新的“数量”需要为原表的“数量”-“配货数量”。同时,原来行的“数量” 变为原来行的“配货数量”。黄色字体的代码没有执行,这个是不是我写错了??

If e.Table.Current("库存数量") >= Tables("出库主表.出库明细表").Current("数量") Then
    Tables("出库主表.出库明细表").Current("库位") = e.Table.Current("库位")
    Tables("出库主表.出库明细表").Current("配货数量") = Tables("出库主表.出库明细表").Current("数量")
Else
    Tables("出库主表.出库明细表").Current("库位") = e.Table.Current("库位")
    Tables("出库主表.出库明细表").Current("配货数量") = e.Table.Current("库存数量")
    Dim dr As Row = Tables("出库主表.出库明细表").AddNew()
    dr("物料编号") = e.Table.Current("物料编号")
    dr("数量") = Tables("出库主表.出库明细表").Current("数量") - Tables("出库主表.出库明细表").Current("配货数量")
    Tables("出库主表.出库明细表").Current("数量") = Tables("出库主表.出库明细表").Current("配货数量")
end if

谢谢
[此贴子已经被作者于2014-3-6 13:20:57编辑过]

 回到顶部