以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：增加行代码计算（已通过其他途径解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47208)
--  作者：hz1717
--  发布时间：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编辑过]