Dim bd1 As New GroupTableBuilder("统计表1",DataTables("资产负债表"))
bd1.Groups.AddDef("月份") '根据月份分组
bd1.Groups.AddDef("行次1") '根据行次1分组
bd1.Groups.AddDef("资产") '根据资产分组
bd1.Totals.AddDef("期初数","期初数3") '对期初数进行统计
bd1.Totals.AddDef("期末数","期末数3") '对期末数进行统计
bd1.Build
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("资产负债表"))
Dim dt2 As DataTable
bd2.Groups.AddDef("月份") '根据月份分组
bd2.Groups.AddDef("行次2") '根据行次2分组
bd2.Groups.AddDef("负债及所有者权益") '根据负债及所有者权益分组
bd2.Totals.AddDef("期初数1") '对期初数1进行统计
bd2.Totals.AddDef("期末数1") '对期末数1进行统计
dt2 = bd2.Build(True)
DataTables("统计表1").DataCols.Add("行次2",Gettype(String))
DataTables("统计表1").DataCols.Add("负债及所有者权益",Gettype(String))
DataTables("统计表1").DataCols.Add("期初数1",Gettype(Double))
DataTables("统计表1").DataCols.Add("期末数1",Gettype(Double))
Dim f As New Filler
f.SourceTable = dt2 '指定数据来源
f.SourceCols = "月份,行次2,负债及所有者权益,期初数1,期末数1" '指定数据来源列
f.DataTable = DataTables("统计表1") '指定数据接收表
f.DataCols = "月份,行次2,负债及所有者权益,期初数1,期末数1" '指定数据接收列
f.Append = False
f.Fill() '填充数据
加好友 
发短信
Post By：2016/11/12 17:19:00 [只看该作者]
