用下面的代码执行，就可以了。
Dim t As Table = Tables("对账单明细")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
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)
t.Subtotal()
Dim sum As Double = 0
For i As Integer = 0 To t.Rows.Count(True) - 1
If t.Rows(i, True).IsGroup Then
t.Rows(i, True)("余额") = sum + t.Rows(i, True)("收入") - t.Rows(i, True)("支出")
sum = t.Rows(i, True)("余额")
End If
Next
加好友 
发短信
Post By：2013/9/22 19:28:00 [显示全部帖子]
