[ASP.NET] DataTableに行を追加する

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

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

‘データ取得
Dim oQA As New DataSet1Tableadapters.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

とりあえず、ここまで。