So-net無料ブログ作成
検索選択
2017年05月 | 2017年06月 |- ブログトップ

DataTable間でDataRowをコピーする [.NET]

データテーブル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を使用します。

oTblB.ImportRow(oRowCopy)

とすることで解決しました。

結果(イミディエイト ウインドウ
? otblB.Rows(0)("shain_cd")
"1" {String}
String: "1"
? otblB.Rows(0)("shain_nm")
"社員0" {String}
String: "社員0"

以上です。[グッド(上向き矢印)]





データテーブルのソート [.NET]

久しぶりに書きます。

取得したデータテーブル内のレコードをソートする関数です。

Public Shared Function SortTable(ByVal oTbl As DataTable, ByVal sSortCol As String) As DataTable
Dim oView As New DataView(oTbl)
oView.Sort = sSortCol '列を降順に並べ替える
Return oView.ToTable '並び替え後のレコードを返す
End Function

以上です。[わーい(嬉しい顔)]






2017年05月 |2017年06月 |- ブログトップ