Dim t As Table = Tables("厦门海西金谷总账黄传雄")
t.Filter = "日期 Is not null"
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = False
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)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "项目垫付明细,福州付款明细,公司投入项目资金,项目部备用金付款,资金余额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
加好友 
发短信
Post By：2016/5/2 12:20:00 [显示全部帖子]
