改成
Dim b1 As New GroupTableBuilder("统计表2",DataTables("固定资产明细表"))
b1.Groups.AddDef("分类")
b1.Totals.AddDef("购建原值")
b1.Totals.AddDef("残值")
b1.Totals.AddDef("本月计提折旧")
b1.Totals.AddDef("累计计提折旧")
b1.Totals.AddDef("净值")
Tables("固定资产汇总归集表_Table1").DataSource = b1.BuildDataSource()
Tables("固定资产汇总归集表_Table1").DataCols("购建原值").SetFormat("0.00")