主题：[原创]关于回收系统代码编辑

很简的：

For i As Integer = Tables("表A").TopPosition To Tables("表A").BottomPosition
    Dim r1 As Row = Tables("表A").Rows(i)
    Dim r2 As Row = Tables("表B").AddNew()
    For Each c As Col In Tables("表B").Cols
        r2(c.Name) = r1(c.Name)
    Next
Next