请教如何根据筛选的列去找到对应的行的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

问题描述

当单击窗口 “自选配餐”中的“刷新”按钮后如何将“早餐记录表”里面我通过日期筛选出来的记录

下载信息 [文件大小：下载次数： ]
点击浏览该文件:孕妇营养营养食谱.foxdb

到“营养素标准”表中根据食物名称去找到对应的行写入到临时表“营养素分析表_临时”中呢？

文件已经上传了，谢谢

[此贴子已经被作者于2017/3/26 16:35:12编辑过]

For Each dr1 As Row In Tables("早餐记录表").Rows
    Dim dr2 As DataRow = DataTables("营养素分析表_临时").AddNew()
    Dim fdr As DataRow = DataTables("营养素标准").find("食物名称 = '" & dr1("食物名称") & "'")
    If fdr IsNot Nothing
        For Each dc As DataCol In DataTables("营养素分析表_临时").DataCols
            If DataTables("营养素标准").DataCols.contains(dc.name)
                dr2(dc.Name) = fdr(dc.name)
            End If
        Next
    End If
Next

谢谢，太谢谢了

您好，我想把早餐表里里的“”重量“”一起写入到临时表里，我复制了代码，修改了下，有些问题，请问代码应该怎么修改，谢谢，我改成这样的会就会报错，说“列“能量”不属于表早餐记录表。”

For Each dr1 As Row In Tables("早餐记录表").Rows '根据早餐表筛选记录到标准表去取对应记录复制到临时表

Dim dr2 As DataRow = DataTables("营养素分析表_临时").AddNew()

Dim fdr As DataRow = DataTables("营养素标准").find("食物名称 = '" & dr1("食物名称") & "'")

If fdr IsNot Nothing

For Each dc As DataCol In DataTables("营养素分析表_临时").DataCols

If DataTables("营养素标准").DataCols.contains(dc.name)

dr2(dc.Name) = fdr(dc.name)

End If

Dim fdrr As DataRow = DataTables("早餐记录表").find("重量 = '" & dr1("重量") & "'")

If fdrr IsNot Nothing

For Each dc As DataCol In DataTables("营养素分析表_临时").DataCols

If DataTables("营养素标准").DataCols.contains(dc.name)

dr2(dc.Name) = fdrr(dc.name)

End If

For Each dr1 As Row In Tables("早餐记录表").Rows '根据早餐表筛选记录到标准表去取对应记录复制到临时表

Dim dr2 As DataRow = DataTables("营养素分析表_临时").AddNew()

Dim fdr As DataRow = DataTables("营养素标准").find("食物名称 = '" & dr1("食物名称") & "'")

If fdr IsNot Nothing

For Each dc As DataCol In DataTables("营养素分析表_临时").DataCols

If DataTables("营养素标准").DataCols.contains(dc.name)

dr2(dc.Name) = fdr(dc.name)

End If

dr2("重量") = dr1("重量")

万分感谢，谢谢

主题：请教如何根据筛选的列去找到对应的行的数据