以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计库存问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50838)

--  作者:好运
--  发布时间:2014/5/14 14:44:00
--  统计库存问题

请问下如何统计库存问题?我建了一个零件入库表和一个零件出库表,记录的是每一种零件每天入库和出库的量,想要再建一个表记录零件的库存,怎么做呢?


--  作者:有点甜
--  发布时间:2014/5/14 14:52:00
--  

 建立一个库存表。出库或入库的时候,动态的添加和统计库存即可。

 

 把这一章看完消化 http://www.foxtable.com/help/topics/1472.htm

 


--  作者:zaq3574020
--  发布时间:2018/9/4 20:39:00
--  
以下是引用有点甜在2014/5/14 14:52:00的发言:

 建立一个库存表。出库或入库的时候,动态的添加和统计库存即可。

 

 把这一章看完消化 http://www.foxtable.com/help/topics/1472.htm

 这个我试了一下,需要库存表里面有对应的那个行,如果需要入库单新增,库存也得新增这个要怎么做呢。


--  作者:有点蓝
--  发布时间:2018/9/4 20:42:00
--  
比如:

If e.DataCol.Name = "数量" Then
    Dim pr As DataRow
    pr = DataTables("统计").Find("产品 = \'" & e.DataRow("产品") & "\'")
    If pr IsNot Nothing Then
        pr("数量")= pr("数量") + e.NewValue - e.OldValue
    Else
        pr = DataTables("统计").AddNew
        pr("产品")= e.DataRow("产品")
        pr("数量")= e.NewValue
    End If
End If