datatableへのデータ挿入 (ID:143319)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とりあえず『Dim tbl As DataTable』があるとして、使い方をまとめてみました。

なお、型付DataSet(デザイン時に*.xsdファイルを作成)を使っている場合は、
そのテーブルに対して、上記よりもより適した書き方が用意されています。

'既存の行に値を書きこむ方法
tbl.Rows(行番号)(列) = 新しい値
tbl.Rows(行番号).SetField(Of 列の型)(列, 新しい値)
'※注：「列」の部分には、列名(String),列番号(Integer),DataColumn のいずれかを指定。

'既存の行から値を読み取る方法
Dim 最大行数 As Integer = tbl.Rows.Count
Dim 既知の値 As Object = tbl.Rows(行番号)(列)
Dim 既知の値 As 列の型 = tbl.Rows(行番号).Field(Of 列の型)(列)
Dim 既知の値 As 列の型? = tbl.Rows(行番号).Field(Of 列の型?)(列)
'※注：「?」付きの型(Decimal? や Date? など)を使った構文では、
'    値が DBNull だった場合、それが Nothing に置き換えられて返されます。

'値がDBNullかどうか判定する方法
If tbl.Rows(行番号).IsNull(列) Then
If IsDBNull(tbl.Rows(行番号)(列)) Then
If TypeOf tbl.Rows(行番号)(列) Is DBNull Then
If tbl.Rows(行番号).Field(Of 列の型?)(列) Is Nothing Then  '値型(Decimal等)の場合
If tbl.Rows(行番号).Field(Of 列の型)(列) Is Nothing Then   '参照型(String等)の場合
' http://madia.world.coocan.jp/cgi-bin/vbnet/wwwlng.cgi?print+201205/12050010.txt

'新たに行を追加する方法  その１
Dim row As DataRow = tbl.NewRow()
row(列1) = 新しい値1
row(列2) = 新しい値2
row(列3) = 新しい値3
tbl.Rows.Add(row)

'新たに行を追加する方法  その２
tbl.Rows.Add(新しい値1, 新しい値2, 新しい値3)

この他、検索・並び替え・絞り込みなどのために、
DataView の使い方やLinq の使い方なども一緒に抑えておくと便利です。

←解決時は質問者本人がここをチェックしてください。

戻る