我有多个仓库,如何把下面的代码分别计算库存?
'库存公式
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