主题：表间数据转移问题

遍历表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