您好，我想把早餐表里里的“”重量“”一起写入到临时表里，我复制了代码，修改了下，有些问题，请问代码应该怎么修改，谢谢，我改成这样的会就会报错，说“列“能量”不属于表 早餐记录表。”
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
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
Next
End If
Next
加好友 
发短信
Post By：2017/3/26 16:32:00 [显示全部帖子]
