我设置汇总模式,需要按照一个日期字段进行排序代码如下:
Dim TblName As String = "流水账"
Dim t As Table = Tables(TblName)
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.DateGroup = DateGroupEnum.None
g.GroupOn = "流水账类型"
g.TotalOn = "收入,支出"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.DateGroup = DateGroupEnum.None
g.GroupOn = "*"
g.TotalOn = "收入,支出"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Sort = "发生日期"
t.Subtotal(True)
这样之后,结果处理对 流水账类型进行分组之外,对发生日期也会进行分组。但也不是按天,好像没有规律,怎么回事?
结果图如下:
[此贴子已经被作者于2015/2/27 21:05:20编辑过]