该如何对这个资产负债表统计汇总呢?
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("资产负债表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("月份") '根据月份分组
bd1.Groups.AddDef("行次1") '根据行次1分组
bd1.Groups.AddDef("资产") '根据资产分组
bd1.Totals.AddDef("期初数","期初数3") '对期初数进行统计
bd1.Totals.AddDef("期末数","期末数3") '对期末数进行统计
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("资产负债表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("月份") '根据月份分组
bd2.Groups.AddDef("行次2") '根据行次2分组
bd2.Groups.AddDef("负债及所有者权益") '根据负债及所有者权益分组
bd2.Totals.AddDef("期初数1","期初数2") '对期初数1进行统计
bd2.Totals.AddDef("期末数1","期末数2") '对期末数1进行统计
dt2 = bd2.BuildDataSource()
Dim nms As String() = {"月份"} '指定连接列
dt1.Combine(nms,dt2,nms) '组合资产负债表到统计表1
dt1.Show("统计表1") '显示统计结果
此主题相关图片如下:qq图片20161112125211.png