|
Dim dr As DataRow = e.DataRow
Dim dt1 As DataTable = DataTables("入库")
Dim dt2 As DataTable = DataTables("出库")
Select Case e.DataCol.Name
Case "序号"
dr("入库数量") = dt1.Compute("Sum(入库数量)","[序号] = '" & dr("序号") & "'")
dr("入库额") = dt1.Compute("Sum(入库额)","[序号] = '" & dr("序号") & "'")
dr("出库数量") = dt2.Compute("Sum(出库数量)","[序号] = '" & dr("序号") & "'")
dr("出库额") = dt2.Compute("Sum(出库额)","[序号] = '" & dr("序号") & "'")
Case "入库数量","出库数量"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(入库数量)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(出库数量)","[_SortKey] <= " & dr("_SortKey"))
dr("库存量") = Val1 - Val2
Next
End Select
|
加好友 
发短信
Post By：2011/8/25 10:17:00 [只看该作者]
