主题：批量复制到另外一个表

Dim t As Table = Tables("窗口1_Table2")
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    Dim dra As Row = Tables("窗口1_Table1").addnew
    'dra("编号列")=e.form.controls("Label1").text
    dra("复制列_名称") = r("粘贴列_名称")
    dra("复制列_价钱") = r("粘贴列_价格列")
    dra("复制列_备注") = r("粘贴列_备注")
Next '批量复制到商品附表

代码没问题，请认真测试。执行代码后，在表格的最后增加行。