以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制数据问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91373)
--  作者：douglas738888
--  发布时间：2016/10/9 14:04:00
--  复制数据问题

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

 

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
--  作者：douglas738888
--  发布时间：2016/10/9 14:21:00
--  

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

 

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
--  作者：有点蓝
--  发布时间：2016/10/9 14:43:00
--  
For Each dr As Row In Tables("窗口1_Table1").Rows
    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
Next