|
Dim g As New GroupTableBuilder("统计表1", DataTables("收付款登记表"))
g.Groups.AddDef("支付日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("支付日期", "月")
g.Groups.AddDef("支付日期", DateGroupEnum.Day, "日")
g.Totals.AddDef("工程可支付金额")
g.Totals.AddDef("支付人工费")
g.Totals.AddDef("支付材料费")
g.Totals.AddDef("支付机械费")
g.Totals.AddDef("支付间接费")
g.Totals.AddDef("支付合计")
g.Totals.AddDef("本期余额")
g.Totals.AddDef("本期余额","累计")
g.Build()
Dim t As Table = Tables("统计表1")
Dim sum As Double = 0
For Each r As Row In t.Rows
r("累计") += sum
sum = r("累计")
Next
MainTable = Tables("统计表1")
|
加好友 
发短信
Post By：2015/5/22 17:15:00 [显示全部帖子]
