以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]更改计算的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88972)
--  作者：349289451
--  发布时间：2016/8/12 16:18:00
--  [求助]更改计算的问题
If e.DataCol.Name = "数量" Then
    Dim dr As Integer = Tables("物料库存表").FindRow("[物料代码]=\'" & e.DataRow("物料代码") & "\'")
    If e.DataRow("出入库类型")="出库" Then
         Tables("物料库存表").Rows(dr)("物料库存") -= e.NewValue
    Else
        Tables("物料库存表").Rows(dr)("物料库存") += e.NewValue
    End If
End If

以上代码用于跨表计算库存的
可以一旦出现在数量列录入出错需要更改的时候  就会有问题了
比如库存是50    出库了10    库存变成40  这没问题    可是突然发现出库出错了  实际出库是8  这时候要是直接在数量上改的话   库存会变成32  
能不能加代码   删除这一行  返回计算之前的状态
--  作者：大红袍
--  发布时间：2016/8/12 18:15:00
--  

用方法二

 

http://www.foxtable.com/webhelp/scr/1472.htm