→→→データセットのテーブル間でリレーションを設定

DataSetオブジェクト.Relations.Add(リレーション名 ,  親フィールド , 子フィールド )


DataSetオブジェクト.relations.Add( 親フィールド , 子フィールド )

Dim dSet As DataSet = New DataSet("食品")
Dim dTbl As DataTable
dTbl = dSet.Tables.Add("製菓")
dTbl.Columns.Add("コード" , Type.GetType("System.Int32"))
dTbl.Columns.Add("製品名" , Type.GetType("System.String"))


dTbl = dSet.tables.Add("仕入れ")
dTbl.Columns.Add("ID" , Type.GetType("System.Int32"))
dTbl.Columns.Add("数量" , Type.GetType("System.String"))


dSet.Relations.Add("製品別仕入" , dSet.Tables("製菓").Columns("コード") ,
                           dSet.Tables("仕入れ").Columns("ID"))