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

是后台数据统计

Dim rq As Date = e.Form.Controls("每日车间日期").Value

'首次检测量

Dim cx As New SQLGroupTableBuilder("车间班组统计","无损_检测明细")

cx.C

Dim dt As fxDataSource

cx.Groups.AddDef("首检_检测日期",DateGroupEnum.None,"检测日期")

cx.Groups.AddDef("地点","检测地点")

cx.Groups.AddDef("检测方法")

cx.Groups.AddDef("车间")

cx.Groups.AddDef("班组")

cx.Totals.AddDef("首检_检测长度","检测量")

cx.Totals.AddDef("首检_返修长度","返修量")

'cx.VerticalTotal = True

cx.Filter = "首检_检测日期 = '" & rq & "'"

dt = cx.BuildDataSource()

'cx.Build

'一次复检量

Dim cx1 As New SQLGroupTableBuilder("车间班组统计","无损_检测明细")

cx1.C

Dim dt1 As fxDataSource

cx1.Groups.AddDef("首检_检测日期",DateGroupEnum.None,"检测日期")

cx1.Groups.AddDef("地点","检测地点")

cx1.Groups.AddDef("检测方法")

cx1.Groups.AddDef("车间")

cx1.Groups.AddDef("班组")

cx1.Totals.AddDef("一次复检_检测长度","检测量")

cx1.Totals.AddDef("一次复检_返修长度","返修量")

'cx1.VerticalTotal = True

cx1.Filter = "一次复检_检测日期 = '" & rq & "'"

dt1 = cx1.BuildDataSource()

'cx1.Build

'二次复检量

Dim cx2 As New SQLGroupTableBuilder("车间班组统计","无损_检测明细")

cx2.C

Dim dt2 As fxDataSource

cx2.Groups.AddDef("首检_检测日期",DateGroupEnum.None,"检测日期")

cx2.Groups.AddDef("地点","检测地点")

cx2.Groups.AddDef("检测方法")

cx2.Groups.AddDef("车间")

cx2.Groups.AddDef("班组")

cx2.Totals.AddDef("二次复检_检测长度","检测量")

cx2.Totals.AddDef("二次复检_返修长度","返修量")

'cx2.VerticalTotal = True

cx2.Filter = "二次复检_检测日期 = '" & rq & "'"

dt2 = cx2.BuildDataSource()

'cx2.Build

Tables("无损查询表_Table1").DataSource = cx.BuildDataSource() '绑定窗口表

[此贴子已经被作者于2018/7/20 10:07:14编辑过]

主题：[求助]怎么将统计表合在一起