从关联父、子表中提取数据填充到另表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

先把2个表单的数据合并成一个查询表，然后再填充

http://www.foxtable.com/webhelp/scr/2314.htm

Dim t1 As Table = Tables("高值耗材病人使用登记表")
Dim t2 As Table = Tables("高值耗材病人使用明细表")
Dim dt As DataTable = DataTables("导出骨科计划表")
dt.DataRows.Clear
Dim sCols() As String = {"手术日期","患者姓名","计划人","计划类型"}
Dim dCols() As String = {"中标号","组件名称","使用规格","厂家","单位","数量","中标价","采购价"}
For Each r As Row In t1.Rows
    For Each cr As DataRow In t2.DataTable.Select("编号 = '" & r("编号") & "'")
        Dim ndr As DataRow = dt.AddNew
        For Each c As String In scols
            ndr(c) = r(c)
        Next
        For Each c As String In dcols
            ndr(c) = cr(c)
        Next
    Next
Next
Forms("导出骨科计划主窗口").Open

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