Dim g As New GroupTableBuilder("公益扶贫", DataTables("贫困户公益林"))
g.Groups.AddDef("县")
g.Groups.AddDef("乡")
g.Groups.AddDef("村")
g.Groups.AddDef("组")
g.Groups.AddDef("户主姓名")
g.Groups.AddDef("一卡通帐号")
g.Groups.AddDef("身份证号")
g.Groups.AddDef("主要致贫原因")
g.Totals.AddDef("公益林面积")
g.Totals.AddDef("补助金额")
g.Totals.AddDef("家庭人口", AggregateEnum.Count)
g.Totals.AddDef("家庭劳动力")
g.Totals.AddDef("家庭人均收入", AggregateEnum.Average)
g.VerticalTotal = True
g.Build()
MainTable = Tables("公益扶贫")