「VB.NET」DataTableのテーブルの構造と値をコピーするサンプル
書式
1.DataTableコンストラクター
DataTable(String)
指定したテーブル名を使用して DataTable クラスの新しいインスタンスを初期化します。
2.DataRow クラス
DataTable 内のデータ行を表します。
メソッド AcceptChanges()
この行に対して行われたすべての変更をコミットします。
3.DataTable.NewRow メソッド
テーブルと同じスキーマで新しい DataRow を作成します。
4.DataTableのテーブルの構造と値をコピーします
DataTable名.Copy
使用例
Module Module1 Public Sub Main() 'テーブルを作成 Dim cft As New DataTable("UserTable") 'テーブルの項目の定義 cft.Columns.Add("userid") cft.Columns.Add("username") cft.Columns.Add("city") 'DataRow変数の宣言 Dim row As DataRow 'NewRowメソッドで行を作成 row = cft.NewRow '1行目の値を追加 row("userid") = "1001" row("username") = "山田 太郎" row("city") = "東京" '1行目をテーブルに追加します cft.Rows.Add(row) 'データをコミットします cft.AcceptChanges() 'DataTableをコピー Dim cftRes As DataTable = cft.Copy Console.WriteLine("DataTableの行をコピーする前結果") For Each dr As DataRow In cftRes.Rows Console.WriteLine("番号:" & dr("userid").ToString & " " & "名前:" & dr("username").ToString & " " & "都市:" & dr("city").ToString) Next Console.WriteLine(" ") Console.WriteLine("DataTableの行をコピーする後結果") For Each dr As DataRow In cftRes.Rows Console.WriteLine("番号:" & dr("userid").ToString & " " & "名前:" & dr("username").ToString & " " & "都市:" & dr("city").ToString) Next Console.ReadKey() End Sub End Module
実行結果
DataTableの行をコピーする前結果 番号:1001 名前:山田 太郎 都市:東京 DataTableの行をコピーする後結果 番号:1001 名前:山田 太郎 都市:東京