以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何分库库存 (http://foxtable.com/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
|