主题：表间数据转移问题

有二个数据结构完全相同的数据表，表A和表B。需要定期把表A中的历史数据转移到表B中保存，我想用按键做一个一键转移功能，请问代码应该如何编写？

遍历表A，每一行在表B中AddNew一行，再对应填入每一行中的单元格的值到表B中，完成后再删除表A中的行。

具体代码应该如何写？因为我对代码的编写还不熟，还在学习过程中，请教了。

Dim a As Table = Tables("表A")
Dim b As Table = Tables("表B")
For r As Integer = 0 To a.Rows.Count - 1
    b.AddNew
    For c As Integer = 0 To a.cols.Count - 1
        b.Current(c) = a.Rows(r)(c)
    Next
   
Next
For r As Integer = a.rows.Count - 1 To 0 Step -1
    a.rows(r).Delete
Next

测试通过，谢了！

现在又发现一个问题，以上代码必须要表A和表B的相同字段位置完全一致才行。如果表A和表B相同字段的位置不相同。如表A的字段位置为：第一列、第二列、第三列、第四列、第五列等。表B的字段位置为：、第二列、第一列第四列、第三列、第五列等。又如何保证表A和表B的相同字段列的数据准确转移呢。

那只好把下面的循环语句去掉：

为何不用filler呢

当然可以，殊途同归

filler又怎样使用？请教了