主题：复制数据问题

请教蓝老师，指导下面代码，从一个临时表满足条件的部分列数据复制到另外一个临时表，没有作用，只增加行了

Dim cr As Row = Tables("窗口1_Table1").current
Dim nr As Row = Tables("窗口1_Table2").addnew
If cr IsNot Nothing Then
    If cr.IsNull("竞争频次gdr") = False Then
        Dim n As Double = cr("竞争频次gdr")
        If n >0.11 And  n <0.20  Then
           nr("第一列") = cr("投标单位")
           nr("第二列") = cr("竞争频次gdr")
       End If
    End If
End If

好像应该是这样才对，请老师看看

For Each dr As Row In Tables("窗口1_Table1").Rows

If dr IsNot Nothing Then
    If dr.IsNull("竞争频次gdr") = False Then
        Dim n As Double = dr("竞争频次gdr")
        If n >0.11 And  n <0.20  Then
    Dim cr As Row =Tables("窗口1_Table2").Rows.AddNew
    cr("第一列") = dr("投标单位")
    cr("第二列") = dr("竞争频次gdr")
End If
End If
End If
Next