主题：表A到表B选中其中一行复制，实现复制选中行(选中表A的其中一行，选中的一行复制到表B)，

 如下代码

Dim t As Table = Tables("表A")
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    Dim nr As Row  = Tables("表B").addnew
    nr("第一列") = r("第一列")
Next