下面是流水账的设计方法
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：2016/8/29 20:36:00 [显示全部帖子]
Post By：2016/8/30 9:03:00 [显示全部帖子]
