主题：如何在小计列中计算出库存的累计数是31呢?

  我想在此流水帐的
小计行的库存列中计算出库存的累计数是31（收入累计55-支出累计24=31），而不是累计库存为67


此主题相关图片如下：20110608-截图 1.png



请高手指教，谢谢！

此主题相关图片如下：20110609-截图 1.png

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 = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()
With CurrentTable
   .Rows(.Rows.count,True)("库存") = .Rows(.Rows.count,True)("入库")-.Rows(.Rows.count,True)("出库")
End With

 

 

在下面代码中如何使库存的累计也为36，而不是软件生成的库存累计为222呢?

 

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
t.SubtotalGroups.Add(g)

With CurrentTable
   .Rows(.Rows.count,True)("库存") = .Rows(.Rows.count,True)("入库")-.Rows(.Rows.count,True)("出库")
End With

此主题相关图片如下：20110609-截图 2.png