主题：从关联父、子表中提取数据填充到另表

窗口【导出计划】按钮代码：

DataTables("导出骨科计划表").DataRows.Clear
Dim f As New Filler
Dim f2 As New Filler
f.SourceTable = DataTables("高值耗材病人使用登记表") '指定数据来源（父表）
f.SourceCols = "手术日期,患者姓名,计划人,计划类型" '指定数据来源列
f.DataTable = DataTables("导出骨科计划表") '指定数据接收表
f.DataCols = "手术日期,患者姓名,计划人,计划类型" '指定数据接收列
f2.SourceTable = DataTables("高值耗材病人使用明细表") '指定数据来源（子表）
f2.SourceCols = "中标号,组件名称,使用规格,厂家,单位,数量,中标价,采购价" '指定数据来源列
f2.DataTable = DataTables("导出骨科计划表") '指定数据接收表
f2.DataCols = "中标号,组件名称,规格,厂家,单位,数量,中标价,让利价" '指定数据接收列
f.Fill()  '填充数据
f2.Fill() '填充数据
Forms("导出骨科计划主窗口").Open

 按照上面的代码得到下面的结果：

此主题相关图片如下：导出表.jpg

我想要得到的结果

此主题相关图片如下：想要.jpg

按条件查询筛选图

此主题相关图片如下：查询窗口.jpg

请教老师们，代码如何修改才能我想要的结果