以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何分库库存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104969)
--  作者：chengjingliang
--  发布时间：2017/8/9 13:28:00
--  如何分库库存
我有多个仓库，如何把下面的代码分别计算库存？

\'库存公式
Select Case e.DataCol.Name
    Case "工料ID","入库数量","出库数量"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [工料ID] = \'" & mr("工料ID") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then \'如果没有上一行,说明本行就是同产品的第一行
            mr("库存数量") = mr("入库数量") - mr("出库数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [工料ID] = \'" & dr("工料ID") & "\'")
        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额
            drs(i)("库存数量") = drs(i-1)("库存数量") + drs(i)("入库数量") - drs(i)("出库数量")
        Next
End Select
--  作者：有点甜
--  发布时间：2017/8/9 14:36:00
--  

加入仓库列，多加一个条件就好了。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100248&skin=0