ASP.NETのDataTableに行を追加するプログラム備忘録です。

これは20行の欄を持つ帳票を作成する場合、レコード数が２０未満でも２０行になるようにレコードを追加し、空白行が出力されるようにするサンプルです。
データ取得をDataSetから取得し、そのDataTableに行を追加します。

‘データ取得
Dim oQA As New DataSet１Tableadapters.XXXXXTableAdapter
Dim oTbl As New DataSet1.XXXXXDataTable
oQA.Fill(oTbl)

’20行区切りになるまで追加する
Dim addNum As Integer
addNum = 20 – (oTbl.Count Mod 20)
Dim rowNum As Integer
For rowNum = 1 To addNum
　　Dim oRow As DataSet1.XXXXXRow
　　oRow = oTbl.NewRow
　　’ここに必要が有れば追加したレコードにデータをセットするようにする
　　’DataSetでキーやNotNullにしてあるとその項目にNullが入れられないので注意
　　oTbl.Rows.Add(oRow)
Next

とりあえず、ここまで。