【VB】DataTableの指定した行を別のDataTableにコピーする

2016年12月18日2020年2月5日

ブログ移行のお知らせ
http://www.development-notes.temochic.com/367/

＜今回の目的＞

DataTableの指定した行を別のDataTableにコピーする方法を記載しています。

以下、ソースを記載します。

        ' DataTableの指定した行を別のDataTableにコピーする

        Dim dt As New DataTable
        dt.Columns.Add("A")
        dt.Columns.Add("B")
        Dim dr As DataRow = dt.NewRow
        dr("A") = 1
        dr("B") = True
        dt.Rows.Add(dr)
        dr = dt.NewRow
        dr("A") = 2
        dr("B") = False
        dt.Rows.Add(dr)

        ' 指定する行を別のDataTableにコピーする
        Dim dt2 = dt.Clone
        ' 2行目をdt2にコピー
        dt2.ImportRow(dt.Rows(1))
        ' 1行目をdt2にコピー
        dt2.ImportRow(dt.Rows(2))