[VB.NET]AddメソッドでDataTableに行を追加する方法

2021年9月14日

書式
1.Public Sub Add (row As DataRow)
指定した DataRow を DataRowCollection オブジェクトに追加

2.Public Sub New (tableName As String)
指定したテーブル名を使用して DataTable クラスの新しいインスタンスを初期化

使用例

Module Module1
    Sub Main()

        'テーブル作成
        Dim dta As New DataTable("userテーブル")
        '項目を追加
        dta.Columns.Add("userno")
        dta.Columns.Add("username")
        dta.Columns.Add("dep")
        dta.Columns.Add("addr")


        'DataRow型変数rowの定義
        Dim row As DataRow
        '変数の作成
        row = dta.NewRow
        'userno値を追加
        row("userno") = "3001"
        'username値を追加
        row("username") = "userA"
        'dep値を追加
        row("dep") = "開発部"
        'addr値を追加
        row("addr") = "東京"

        '1行目をテーブルに追加
        dta.Rows.Add(row)


        '変更をコミット
        dta.AcceptChanges()

        'ループでデータを取得
        For Each dr As DataRow In dta.Rows
            Console.WriteLine(dr("userno").ToString + " " + dr("username").ToString + " " + dr("dep").ToString + " " + dr("addr").ToString)

        Next

        Console.ReadKey()

    End Sub

End Module

結果
3001 userA 開発部 東京

VB.net

Posted by arkgame