從 A table 複製整筆 Row 到 B table

紀錄一下，將整筆 Row 從 A table 複製到 B table 的新方法。

以前的話：

        '建立新的DataSet

        Dim P2_table As New DataSet

        '將  Rental 的結構放進 P2_table 中
        P2_table.Tables.Add(Rental.Clone)

        '執行迴圈
        For y As Integer = 0 To Rental.Rows.Count - 1
            '逐筆判斷 Rental 中的資料，是否有修改。
            If Rental.Rows(y).RowState = DataRowState.Modified Then
                '將修改後的資料，從 Rental 複製到 P2_table
                Dim dr As DataRow
                dr = P2_table.Tables(0).NewRow
                dr.BeginEdit()
                dr(0) = Rental.Rows(y).Item(0)
                dr(1) = Rental.Rows(y).Item(1)
                dr(2) = Rental.Rows(y).Item(2)
                dr(3) = Rental.Rows(y).Item(3)
                dr(4) = Rental.Rows(y).Item(4)
                dr.EndEdit()
                P2_table.Tables(0).Rows.Add(dr)
            End If
        Next


現在：

        '建立新的DataSet

        Dim P2_table As New DataSet

        '將  Rental 的結構放進 P2_table 中
        P2_table.Tables.Add(Rental.Clone)

        '執行迴圈
        For y As Integer = 0 To Rental.Rows.Count - 1
            '逐筆判斷 Rental 中的資料，是否有修改。
            If Rental.Rows(y).RowState = DataRowState.Modified Then
                '將修改後的資料，從 Rental 複製到 P2_table
                Dim dr As DataRow
                dr = P2_table.Tables(0).NewRow
                dr.ItemArray = Rental.Rows(y).ItemArray
                P2_table.Tables(0).Rows.Add(dr)
            End If
        Next



唉！笨了好幾年，沒想到可以直接複製整個陣列...