专家坐堂-[条件统计]分类统计Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bcty As WinForm.ComBoBox = e.Form.Controls("ComboBox7")

Dim g As New GroupTableBuilder("统计表1",DataTables("明细根表"))

g.Groups.AddDef("运输审核_结算月", "月份")

g.Groups.AddDef("生产信息_车号", "车号")

g.Totals.AddDef("运量", "砼运输_方量")

g.Totals.AddDef("生产信息_类型", AggregateEnum.Count, "砼运输_车数")

g.Totals.AddDef("运输_砼运额", "砼运输_金额")

g.Totals.AddDef("运输_砼补方", "砼补方_方量")

g.Totals.AddDef("运输_砼补额", "砼补方_金额")

g.Totals.AddDef("生产信息_等级强度", AggregateEnum.Count, "水运输_车数")

g.Totals.AddDef("销售_水销额", "水运输_金额")

g.Totals.AddDef("公司补助_补运额", "运输补助")

g.Totals.AddDef("公司补助_补超额", "超时补助")

g.Totals.AddDef("公司补助_补其额", "其他费用")

g.VerticalTotal = True

g.Filter = "[运输审核_结算月] = \'" & bcty.text & "\'and [生产信息_车号] is not Null and [生产信息_车号] <> \'自运\' "

Tables("数据统计_Table5").DataSource = g.BuildDataSource()

DataTables("数据统计_Table5").DataCols.Add("总车数", Gettype(Double), "[砼运输_车数] + [水运输_车数]" )

DataTables("数据统计_Table5").DataCols.Add("总金额", Gettype(Double), "[砼运输_金额] + [砼补方_金额] + [水运输_金额] + [运输补助] + [超时补助] + [其他费用]" )

Tables("数据统计_Table5").Cols("总车数").Move(2)

Tables("数据统计_Table5").Cols("总金额").Move(3)

Tables("数据统计_Table5").AutoSizeCols()