合并的，这样测试
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")
加好友 
发短信
Post By：2015/9/30 15:17:00 [只看该作者]
