示范文件流水帐例子二我改了一下,去掉出库数据的计算。得出来的库存就是我想要的每行计算用的“工序天数”,入在表B加一个过度列“A”,把一下公式出库改为“A”,C版的公式“工序天数”改为“A”。判断试去掉,应该可以计算出来。如果不加过度列,看看怎么合并
Select Case e.DataCol.Name
Case "日期","产品","入库","出库"
If e.DataRow.IsNull("日期") = False Then
Dim drs As List(of DataRow)
drs = e.DataTable.Select("[日期] >= #" & e.DataRow("日期") & "#","日期")
For Each dr As DataRow In drs
Dim Filter As String
Filter = "[日期] < #" & dr("日期") & "# Or ([日期] = #" & dr("日期") & "# And [_Identify] <= " & dr("_Identify") & ")"
Filter = "(" & Filter & ") And [产品] = '" & dr("产品") & "'"
Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)
dr("库存") = Val1
Next
End If
End Select