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

对同一表统计，设置了不同的统计统计，其他都一样，怎么把它组合起来，显示，请教老师：

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker12")

Dim g As New GroupTableBuilder("统计表1", DataTables("染色生产表"))

g.Groups.AddDef("客户")

g.Groups.AddDef("颜色")

g.Groups.AddDef("品名大类")

g.Groups.AddDef("缸号")

g.Totals.AddDef("重量")

g.Totals.AddDef("匹数")

g.VerticalTotal = True

g.FromServer = True

g.filter = "染缸完成日期 = '" & dt1.value & "' and 染机机型 in ('高温缸','溢流缸') and 缸号类型 <> '回修'"

g.Build()

Tables(e.Form.Name & "_Table6").DataSource = g.Builddatasource()

Tables(e.Form.Name & "_Table6").DataTable.DataCols.Add("染缸完成日期",Gettype(String))

Tables(e.Form.Name & "_Table6").DataTable.ReplaceFor("染缸完成日期",format(dt1.value,"yyyy-MM-dd"))

Tables(e.Form.Name & "_Table6").AutoSizeCols

'----------------------------------------------------------------------

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker12")

Dim g As New GroupTableBuilder("统计表1", DataTables("染色生产表"))

g.Groups.AddDef("客户")

g.Groups.AddDef("颜色")

g.Groups.AddDef("品名大类")

g.Groups.AddDef("缸号")

g.Totals.AddDef("重量")

g.Totals.AddDef("匹数")

g.VerticalTotal = True

g.FromServer = True

g.filter = "染缸完成日期 = '" & dt1.value & "' and 染机机型 = '气流缸' and 缸号类型 <> '回修'"

g.Build()

Tables(e.Form.Name & "_Table6").DataSource = g.Builddatasource()

Tables(e.Form.Name & "_Table6").DataTable.DataCols.Add("染缸完成日期",Gettype(String))

Tables(e.Form.Name & "_Table6").DataTable.ReplaceFor("染缸完成日期",format(dt1.value,"yyyy-MM-dd"))

Tables(e.Form.Name & "_Table6").AutoSizeCols

'---------------------------------

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker12")

Dim g As New GroupTableBuilder("统计表1", DataTables("染色生产表"))

g.Groups.AddDef("客户")

g.Groups.AddDef("颜色")

g.Groups.AddDef("品名大类")

g.Groups.AddDef("缸号")

g.Totals.AddDef("重量")

g.Totals.AddDef("匹数")

g.VerticalTotal = True

g.FromServer = True

g.filter = "染缸完成日期 = '" & dt1.value & "' and 缸号类型 <> '回修'"

g.Build()

Tables(e.Form.Name & "_Table6").DataSource = g.Builddatasource()

Tables(e.Form.Name & "_Table6").DataTable.DataCols.Add("染缸完成日期",Gettype(String))

Tables(e.Form.Name & "_Table6").DataTable.ReplaceFor("染缸完成日期",format(dt1.value,"yyyy-MM-dd"))

Tables(e.Form.Name & "_Table6").AutoSizeCols

主题：同一表，不同的统计统计的组合