主题：[求助]大大们帮我看看表1数据怎么复制到表2[解决]

在表1里有个窗口，里面有个按钮，代码要怎么写，才能把表1的内容筛选后复制到表2里，窗口1的代码是按一次向表2追加，表3是按下表1窗口1的按钮后的格式

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.table

For Each r1 As Row In Tables("表A").Rows
  Dim r2 As  Row = Tables("表B").AddNew
  For Each c As Col In Tables("表B").cols
      r2(c.name) = r1(c.name)
  Next
Next

这样？

 

Dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("表B")
f.Filter = Tables("表A").Filter
f.Fill()

谢谢，楼上的，代码可以，但还有些差别，是我没说清楚，我不用复制整行数据，只要其中二列就好，比如第一列和第二列跟第四列

For Each r1 As Row In Tables("表A").Rows

    Dim r2 As  Row = Tables("表B").AddNew

    For Each c As Col In Tables("表B").cols

        If c.Name = "第一列" And c.Name ="第二列" And c.Name ="第四列" Then

            r2(c.name) = r1(c.name)

        End If

    Next

Next

老朱的代码有问题，这里应该or而不是and:

 

For Each r1 As Row In Tables("表A").Rows
    Dim r2 As  Row = Tables("表B").AddNew
    For Each c As Col In Tables("表B").cols
        If c.Name = "第一列" OrElse c.Name ="第二列" OrElse c.Name ="第四列" Then
            r2(c.name) = r1(c.name)
        End If
    Next
Next

嗯,对的,我没有注意.

谢谢狐爸以及各位热心人，还有一点就是我想只把表A第二列等于1的行复制到表B，我已经可以实现了，就是先筛选第二列等于1的行出来再执行那确定的代码，有没有不用先筛选的方法？

顶起，狐爸再帮看一下