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

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("重量")

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