主题：[求助]分组统计表合并问题

不要这样统计，直接用代码循环每一行合计。

 

http://www.foxtable.com/help/topics/0681.htm

 

合并是合并大家都有的数据，不适合你这样做。

 

用二楼的方法统计。

合并的，这样测试

 

Dim sql1 As String="select * f rom {工作量登记} "
Dim sql2 As String="select *,总费用 * 0.3 as 提取费用 f rom {语音工作量登记}"
Dim sql3 As String="select *,[照片信息_收费]*0.3 as 开单费用,[照片信息_收费]*0.7 as 照片费用 f rom {CBCT工作量登记}"
Dim sql4 As String="select *,[矫治器_单价] * [矫治器_数量] as 矫治器_费用 f rom {矫治器加工费用登记}"

Dim bd1 As New GroupTableBuilder("统计表1", sql1)
Dim dtt1 As fxDataSource
bd1.Groups.AddDef("医生姓名")
bd1.Totals.AddDef("工作量_本部_主治号")
bd1.Totals.AddDef("工作量_本部_副高号")
bd1.Totals.AddDef("工作量_本部_急诊号")
bd1.Totals.AddDef("工作量_本部_特需")
bd1.Totals.AddDef("工作量_本部_合计")
bd1.Totals.AddDef("工作量_礼嘉_主治号")
bd1.Totals.AddDef("工作量_礼嘉_副高号")
bd1.Totals.AddDef("工作量_礼嘉_特需")
bd1.Totals.AddDef("工作量_礼嘉_合计")
bd1.Totals.AddDef("治疗费_本部")
bd1.Totals.AddDef("治疗费_礼嘉")
bd1.Totals.AddDef("治疗费_合计")
bd1.Decimals = 2
dtt1=bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",sql2)
Dim dtt2  As fxDataSource
bd2.Groups.AddDef("首诊医生","医生姓名") '根据型号分组
bd2.Totals.AddDef("提取费用","语音治疗_费用") '对数量进行统计
dtt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",sql3)
Dim dt3 As fxDataSource
bd3.Groups.AddDef("开单医生","医生姓名") '根据型号分组
bd3.Totals.AddDef("开单费用","CBCT_开单费用") '对数量进行统计
dt3 = bd3.BuildDataSource()

Dim bd4 As New GroupTableBuilder("统计表4",sql3)
Dim dt4 As fxDataSource
bd4.Groups.AddDef("照片信息_照片医生","医生姓名") '根据型号分组
bd4.Totals.AddDef("照片费用","CBCT_照片费用") '对数量进行统计
dt4 = bd4.BuildDataSource()

Dim bd5 As New GroupTableBuilder("统计表5",sql4)
Dim dt5 As fxDataSource
bd5.Groups.AddDef("医生姓名") '根据型号分组
bd5.Totals.AddDef("矫治器_数量") '对数量进行统计
bd5.Totals.AddDef("矫治器_费用") '对数量进行统计
dt5 = bd5.BuildDataSource()

dtt1.Combine("医生姓名",dtt2,"医生姓名") '将销售统计数据组合到进货统计数据
dtt1.Combine("医生姓名",dt3,"医生姓名") '将退货统计数据组合到进货统计数据
dtt1.combine("医生姓名",dt4,"医生姓名")
bd1.VerticalTotal = True

dtt1.show("23434")

合并，生成的是一个新的临时表

 生成以后，再filler进去。

那你就循环每一行，去临时表find一行的数据，填入。

无法直接合并。