2009年4月9日木曜日

【VB】DataSetにDataTableを追加する

'Viewを取得
dim dv as nwe DataView
dv.Table=OrderDataSet.Goods

'フィルタ設定
dv.RowFilter = "GoodsID LIKE 'F%'"

'フィルタ結果からデータテーブルを作成
dim tb as DataTable
tb = dv.ToTable

'テーブルの名前を変更
tb.tableNmae= "Foods"

'作成したテーブルをデータセットに追加
OrderDataSet.Tables.Add(tb)

'確認
dim t as DataTable
for Each t in OrderDataset.Tables
'テーブル名
Cnsole.WriteLine(T.tabliName)

'フィールド名
dim c as DataColumn
for Each c in t.columns
console.writeLine(controlChars.tab & c.ColumnName)
next
next