标题：在小计或累计 库存数量列的结果后如何也能同时小计或累计出库存金额列的结果
代码中:
Dim t As Table = Tables("例子二")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "日期"
g.TotalOn = "入库数量,入库单价,入库金额,出库数量,出库单价,出库金额,库存数量,库存数量金额"
g.Caption = "{0}月 小计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "日期"
g.TotalOn = "入库数量,入库单价,入库金额,出库数量,出库单价,出库金额,库存数量,库存数量金额"
g.Caption = "{0}月 累计"
g.DateGroup = DateGroupEnum.Month
g.upto = True
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim Sum As Integer
For i As Integer = 0 To CurrentTable.Rows.Count(True) - 1
Dim r As Row = CurrentTable.Rows(i,True)
If r.IsGroup
If r("日期").EndsWith("小计") Then
sum = sum + r("入库数量")- r("出库数量")
End If
r("库存数量") = sum
End If
Next
要求自动计算出 库存数量 列的小计或累计 结果后,也能同时一起自动计算出 库存金额 的小计或累计列呢?
如何添加代码呢,同时也能一起计算出库存金额
此主题相关图片如下：20110609-截图 9.png
如何添加代码呢?
一楼中的此循环代码只能循环计算库存数量小计或累计，
For i As Integer = 0 To CurrentTable.Rows.Count(True) - 1
Dim r As Row = CurrentTable.Rows(i,True)
If r.IsGroup
If r("日期").EndsWith("小计") Then
sum = sum + r("入库数量")- r("出库数量")
End If
r("库存数量") = sum
End If
Next
希望也能够同时一起计算出库存库存金额 列的小计或累计,
试过许多次编写仍未能实现到也同步一起计算出库存金额 列的小计或累计，不知代码如何写，请问如何写了
Dim Sum1 As Integer
Dim Sum2 As Double
For i As Integer = 0 To CurrentTable.Rows.Count(True) - 1
Dim r As Row = CurrentTable.Rows(i,True)
If r.IsGroup
If r("日期").EndsWith("小计") Then
sum1 = sum1 + r("入库数量")- r("出库数量")
sum2 = sum2 + r("入库金额")- r("出库金额")
End If
r("库存数量") = sum1
r("库存金额") = sum1
End If
Next
上楼的代码中，小计和累计的库存数量和库存金额不对，请狐狸爸爸帮我更正代码:
上楼的代码中，库存数量和库存金额达不是我想要的结果,我在这张表中,我想要的库存数量应为如下:
日期 入库数量 出库数量 库存数量 说明
2008-1-3 10754
2008-1-4 9863 20617 (20617=上一行的库存数量10754+本行入库数量9863- 本行出库数量0)
2008-1-5 10752 31369 (31369=上一行的库存数量20617+本行入库数量10752-本行出库数量0)
2008-1-6 11235 42604 (42604=上一行的库存数量31369+本行入库数量11235-本行出库数量0)
2008-1-7 11235 53839 (53839=上一行的库存数量42604+本行入库数量11235-本行出库数量0)
2008-1-8 2379 56218 (56218=上一行的库存数量53839+本行入库数量2379-本行出库数量0)
2008-1-9 35828 20390 (20390=上一行的库存数量56218+本行入库数量0-本行出库数量35828)
本月小计 20390 (20390=1月8日的库存数量56218+8号入库0-1月9日出库数量35828)
本月累计 20390 (20390=1月8日的库存数量56218+8号入库0-1月9日出库数量35828)
最终想设计出类似第二张表的效果(库存金额也如是按此规律来计算)
此主题相关图片如下：20110610-截图 001.png
此主题相关图片如下：20110610-截图002.png
入库的小计单价中也不对，不是入库金额除入库数量，而是将上面的多日的单价加起来