データテーブルAの特定の行を同じ構造を持ったデータテーブルBにコピーする方法について説明します。
失敗例
最初、何も考えずにこうかなと考えて作ったら失敗しました。
Private Sub CopyDataRow()
'データテーブルAの作成
Dim oTblA As DataTable = New DataTable
oTblA.Columns.Add("shain_cd")
oTblA.Columns.Add("shain_nm")
oTblA.Columns.Add("remarks")
'5行作成
For nRow As Integer = 0 To 4
Dim oRow As DataRow = oTblA.NewRow
oRow("shain_cd") = 1
oRow("shain_nm") = "社員" & nRow
oRow("remarks") = nRow
oTblA.Rows.Add(oRow)
Next
'データテーブルAからデータテーブルBを作成
Dim oTblB As DataTable = oTblA.Clone
'データテーブルAの先頭行を取得し、データテーブルBに追加
Dim oRowCopy As DataRow = oTblA.Rows(0)
oTblB.Rows.Add(oRowCopy)
End Sub
とすると、oTblB.Rows.Add(oRowCopy)の部分で「この行は既に別のテーブルに属しています。」というエラーメッセージが出力されました。
oRowCopyはoTblAに属しているから移動できないとのことでした。
ImportRow
この場合はImportRowを使用します。
プロパティ設定、元の値、および現在の値を保持し、DataRow を DataTable にコピーします
oTblB.ImportRow(oRowCopy)
とすることで解決しました。
Private Sub CopyDataRow()
'データテーブルAの作成
Dim oTblA As DataTable = New DataTable
oTblA.Columns.Add("shain_cd")
oTblA.Columns.Add("shain_nm")
oTblA.Columns.Add("remarks")
'5行作成
For nRow As Integer = 0 To 4
Dim oRow As DataRow = oTblA.NewRow
oRow("shain_cd") = 1
oRow("shain_nm") = "社員" & nRow
oRow("remarks") = nRow
oTblA.Rows.Add(oRow)
Next
'データテーブルAからデータテーブルBを作成
Dim oTblB As DataTable = oTblA.Clone
'データテーブルAの先頭行を取得し、データテーブルBに追加
Dim oRowCopy As DataRow = oTblA.Rows(0)
oTblB.ImportRow(oRowCopy)
End Sub
結果(イミディエイトウインドウ)
? otblB.Rows(0)("shain_cd")
"1" {String}
String: "1"
? otblB.Rows(0)("shain_nm")
"社員0" {String}
String: "社員0"
テーブルBへ値が移されていることが確認できました。