6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 |
Select Case e.DataCol.Name
Case "产品","入库","出库"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(of
DataRow)
dr = e.DataTable.Find("[_SortKey] < "
&
mr("_SortKey") &
" And [产品] = '"
&
mr("产品") &
"'",
"[_SortKey] Desc")
If dr Is Nothing Then
mr("库存") = mr("入库") - mr("出库")
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= "
&
dr("_SortKey") &
" And [产品] = '"
&
dr("产品") &
"'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
Next
If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[_SortKey] < "
&
mr("_SortKey") &
" And [产品] = '"
&
e.OldValue
&
"'", "[_SortKey] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[产品] = '"
&
e.OldValue
&
"'", "[_SortKey]")
If dr IsNot Nothing Then
dr("库存") = dr("入库") - dr("出库")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[_SortKey] >= "
&
dr("_SortKey") &
" And [产品] = '"
&
dr("产品") &
"'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
Next
End If
End If
End Select |
这段帮助的代码怎么设置时间段,我加了 日期>= and 日期<= 这个时间段 计算的是当前行的!
加好友 
发短信
Post By：2013/10/30 11:17:00 [只看该作者]
