' 即时库存数量计算
Select Case e.DataCol.Name
Case "物料编号","入库_数量","出库_数量"
Dim drs As List(of DataRow)
Dim Filter As String
Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [物料编号] = '" & e.DataRow("物料编号") & "'"
drs = e.DataTable.Select(Filter)
For Each dr As DataRow In drs
Filter = "[_SortKey] <= " & dr("_SortKey") & " And [物料编号] = '" & dr("物料编号") & "'"
Dim Val1 As Double = e.DataTable.Compute("Sum(入库_数量)",Filter)
Dim Val2 As Double = e.DataTable.Compute("Sum(出库_数量)",Filter)
dr("库存_数量") = Val1 - Val2
Next
If e.DataCol.Name = "物料编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [物料编号] = '" & e.OldValue & "'"
drs = e.DataTable.Select(Filter)
For Each dr As DataRow In drs
Filter = "[_SortKey] <= " & dr("_SortKey") & " And [物料编号] = '" & dr("物料编号") & "'"
Dim Val1 As Double = e.DataTable.Compute("Sum(入库_数量)",Filter)
Dim Val2 As Double = e.DataTable.Compute("Sum(出库_数量)",Filter)
dr("库存_数量") = Val1 - Val2
Next
End If
End Select
这个数量我调出来了，但是单价的代码我没调出来。麻烦老师给添加一下单价部分代码
加好友 
发短信
Post By：2022/3/28 22:23:00 [只看该作者]
