主题：在小计或累计 库存数量列的结果后如何也能同时小计或累计出库存金额列的结果

代码中:

 

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

 

ok了，谢谢，另最后行中的r("库存金额") = sum1应该是r("库存金额") = sum2  (sum1改为sum2吧?）

是的

上楼的代码中，小计和累计的库存数量和库存金额不对，请狐狸爸爸帮我更正代码:

 

上楼的代码中，库存数量和库存金额达不是我想要的结果,我在这张表中,我想要的库存数量应为如下:

 

      日期             入库数量       出库数量        库存数量     说明

  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

我想代码生成的库存数量和库存金额类似于第二张的库存量结果

入库的小计单价中也不对，不是入库金额除入库数量，而是将上面的多日的单价加起来