主题：[求助] 如何从一表向另一表追加记录

一表经过处理（比如筛选）得出有10条记录，我想将该10条记录追加到另一表中去，代码应怎么写？或参考帮助的哪个章节？

Dim nma() As String = {"A","B","C","D","E"} 'A表     数据来源列
    Dim nmb() As String = {"A","B","C","D","E"} 'B表 数据接收列
    For  J As Integer = 0 To Tables("A表").Rows.Count-1
        Tables("A表").Position=J
        Dim dr As DataRow = DataTables("B表").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = Tables("A表").Current(nma(i))
        Next
    Next
DataTables("B表").Save

谢谢！

如果两张表之间的数据经常复制，就将有关列的列名设为完全一样。用下面的代码，不用关心具体列名，代码用在另外的表，只要改表名就行了：

For Each r As Row In Tables("表A").Rows
    Dim r1 As Row = Tables("表B").AddNew()
    For Each c As Col In Tables("表A").Cols
        For Each c1 As Col In Tables("表B").Cols
            If c.Name = c1.Name Then               
                r1(c1.Name) = r(c.Name)
            End If
        Next
    Next
Next

这确实很好,但如果用鼠标选中A表的任意数行,追加到B表中,那代码怎么写,谢谢!!!