Dim bd1 As New SQLGroupTableBuilder("报销清单","长期医嘱")
bd1.C
Dim dt1 As fxDataSource
bd1.AddTable("长期医嘱","住次ID","住院主表","住次ID")
bd1.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd1.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd1.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd1.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd1.Groups.AddDef("{长期医嘱}.项目ID") \'根据品名分组
bd1.Groups.AddDef("{长期医嘱}.收费项目") \'根据品名分组
bd1.Groups.AddDef("{长期医嘱}.项目类别") \'根据型号分组
bd1.Groups.AddDef("{长期医嘱}.项目规格") \'根据品名分组
bd1.Groups.AddDef("{长期医嘱}.单位") \'根据型号分组
bd1.Groups.AddDef("{长期医嘱}.单价") \'根据型号分组
bd1.Totals.AddExp("长期医嘱_报数","IIF([数量] >= 0,[数量],0)") \'对数量进行统计
bd1.Totals.AddExp("长期医嘱_金额","IIF([数量] > 0,[数量] * [单价],0)") \'对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New SQLGroupTableBuilder("统计表2","临时医嘱")
bd2.C
Dim dt2 As fxDataSource
bd2.AddTable("临时医嘱","住次ID","住院主表","住次ID")
bd2.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd2.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd2.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd2.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd2.Groups.AddDef("{临时医嘱}.项目ID") \'根据品名分组
bd2.Groups.AddDef("{临时医嘱}.收费项目") \'根据品名分组
bd2.Groups.AddDef("{临时医嘱}.项目类别") \'根据型号分组
bd2.Groups.AddDef("{临时医嘱}.项目规格") \'根据品名分组
bd2.Groups.AddDef("{临时医嘱}.单位") \'根据型号分组
bd2.Groups.AddDef("{临时医嘱}.单价") \'根据型号分组
bd2.Totals.AddExp("临时医嘱_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd2.Totals.AddExp("临时医嘱_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New SQLGroupTableBuilder("统计表3","实验室记录")
bd3.C
Dim dt3 As fxDataSource
bd3.AddTable("实验室记录","住次ID","住院主表","住次ID")
bd3.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd3.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd3.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd3.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd3.Groups.AddDef("{实验室记录}.项目ID") \'根据品名分组
bd3.Groups.AddDef("{实验室记录}.收费项目") \'根据品名分组
bd3.Groups.AddDef("{实验室记录}.项目类别") \'根据型号分组
bd3.Groups.AddDef("{实验室记录}.项目规格") \'根据品名分组
bd3.Groups.AddDef("{实验室记录}.单位") \'根据型号分组
bd3.Groups.AddDef("{实验室记录}.单价") \'根据型号分组
bd3.Totals.AddExp("实验室记录_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd3.Totals.AddExp("实验室记录_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt3 = bd3.BuildDataSource()

Dim bd4 As New SQLGroupTableBuilder("统计表4","行为冲动")
bd4.C
Dim dt4 As fxDataSource
bd4.AddTable("行为冲动","住次ID","住院主表","住次ID")
bd4.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd4.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd4.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd4.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd4.Groups.AddDef("{行为冲动}.项目ID") \'根据品名分组
bd4.Groups.AddDef("{行为冲动}.收费项目") \'根据品名分组
bd4.Groups.AddDef("{行为冲动}.项目类别") \'根据型号分组
bd4.Groups.AddDef("{行为冲动}.项目规格") \'根据品名分组
bd4.Groups.AddDef("{行为冲动}.单位") \'根据型号分组
bd4.Groups.AddDef("{行为冲动}.单价") \'根据型号分组
bd4.Totals.AddExp("行为冲动_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd4.Totals.AddExp("行为冲动_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt4 = bd4.BuildDataSource()

Dim bd5 As New SQLGroupTableBuilder("统计表5","行为矫正")
bd5.C
Dim dt5 As fxDataSource
bd5.AddTable("行为矫正","住次ID","住院主表","住次ID")
bd5.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd5.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd5.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd5.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd5.Groups.AddDef("{行为矫正}.项目ID") \'根据品名分组
bd5.Groups.AddDef("{行为矫正}.收费项目") \'根据品名分组
bd5.Groups.AddDef("{行为矫正}.项目类别") \'根据型号分组
bd5.Groups.AddDef("{行为矫正}.项目规格") \'根据品名分组
bd5.Groups.AddDef("{行为矫正}.单位") \'根据型号分组
bd5.Groups.AddDef("{行为矫正}.单价") \'根据型号分组
bd5.Totals.AddExp("行为矫正_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd5.Totals.AddExp("行为矫正_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt5 = bd5.BuildDataSource()

Dim bd6 As New SQLGroupTableBuilder("统计表6","行为观察")
bd6.C
Dim dt6 As fxDataSource
bd6.AddTable("行为观察","住次ID","住院主表","住次ID")
bd6.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd6.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd6.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd6.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd6.Groups.AddDef("{行为观察}.项目ID") \'根据品名分组
bd6.Groups.AddDef("{行为观察}.收费项目") \'根据品名分组
bd6.Groups.AddDef("{行为观察}.项目类别") \'根据型号分组
bd6.Groups.AddDef("{行为观察}.项目规格") \'根据品名分组
bd6.Groups.AddDef("{行为观察}.单位") \'根据型号分组
bd6.Groups.AddDef("{行为观察}.单价") \'根据型号分组
bd6.Totals.AddExp("行为观察_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd6.Totals.AddExp("行为观察_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt6 = bd6.BuildDataSource()

Dim bd7 As New SQLGroupTableBuilder("统计表7","量表首诊")
bd7.C
Dim dt7 As fxDataSource
bd7.AddTable("量表首诊","住次ID","住院主表","住次ID")
bd7.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd7.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd7.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd7.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd7.Groups.AddDef("{量表首诊}.项目ID") \'根据品名分组
bd7.Groups.AddDef("{量表首诊}.收费项目") \'根据品名分组
bd7.Groups.AddDef("{量表首诊}.项目类别") \'根据型号分组
bd7.Groups.AddDef("{量表首诊}.项目规格") \'根据品名分组
bd7.Groups.AddDef("{量表首诊}.单位") \'根据型号分组
bd7.Groups.AddDef("{量表首诊}.单价") \'根据型号分组
bd7.Totals.AddExp("量表首诊_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd7.Totals.AddExp("量表首诊_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt7 = bd7.BuildDataSource()

Dim bd8 As New SQLGroupTableBuilder("统计表8","量表护士观察")
bd8.C
Dim dt8 As fxDataSource
bd8.AddTable("量表护士观察","住次ID","住院主表","住次ID")
bd8.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd8.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd8.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd8.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd8.Groups.AddDef("{量表护士观察}.项目ID") \'根据品名分组
bd8.Groups.AddDef("{量表护士观察}.收费项目") \'根据品名分组
bd8.Groups.AddDef("{量表护士观察}.项目类别") \'根据型号分组
bd8.Groups.AddDef("{量表护士观察}.项目规格") \'根据品名分组
bd8.Groups.AddDef("{量表护士观察}.单位") \'根据型号分组
bd8.Groups.AddDef("{量表护士观察}.单价") \'根据型号分组
bd8.Totals.AddExp("量表护士观察_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd8.Totals.AddExp("量表护士观察_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt8 = bd8.BuildDataSource()

Dim bd9 As New SQLGroupTableBuilder("统计表9","量表TESS")
bd9.C
Dim dt9 As fxDataSource
bd9.AddTable("量表TESS","住次ID","住院主表","住次ID")
bd9.Groups.AddDef("{住院主表}.住次ID") \'根据品名分组
bd9.Groups.AddDef("{住院主表}.姓名") \'根据品名分组
bd9.Groups.AddDef("{住院主表}.参保方式") \'根据品名分组
bd9.Groups.AddDef("{住院主表}.送报日期") \'根据品名分组
bd9.Groups.AddDef("{量表TESS}.项目ID") \'根据品名分组
bd9.Groups.AddDef("{量表TESS}.收费项目") \'根据品名分组
bd9.Groups.AddDef("{量表TESS}.项目类别") \'根据型号分组
bd9.Groups.AddDef("{量表TESS}.项目规格") \'根据品名分组
bd9.Groups.AddDef("{量表TESS}.单位") \'根据型号分组
bd9.Groups.AddDef("{量表TESS}.单价") \'根据型号分组
bd9.Totals.AddExp("量表TESS_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") \'对数量进行统计
bd9.Totals.AddExp("量表TESS_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") \'对数量进行统计
dt9 = bd9.BuildDataSource()

Dim nms As String() = {"住次ID","姓名","参保方式","送报日期","项目ID","收费项目","项目类别","项目规格","单位","单价"}
dt1.Combine(nms,dt2,nms)\'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms)\'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt4,nms)\'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt5,nms)\'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt6,nms)\'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt7,nms)\'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt8,nms)\'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt9,nms)\'将销售统计数据组合到进货统计数据
dt1.Show("报销清单") \'显示统计结果

With DataTables("报销清单").DataCols  \'用表达式列计算库存数据
    .Add("数量",Gettype(Integer), "IsNull([长期医嘱_报数],0) + ISNULL([临时医嘱_报数],0)")
    .Add("金额",Gettype(Double), "IsNull([长期医嘱_金额],0) + ISNULL([临时医嘱_金额],0)")
MainTable = Tables("报销清单") \'打开生成的统计表
End With

Dim t As DataTable
t = dt1.Build(True)
Output.Show("报销清单") \'不显示统计结果

上面是我的多表统计的代码，是好的，，只是现在要让"报销清单"不显示，后面我写了下，这个代码，，请帮我指正一下，谢了