DataSetのDataTableのリレーションについて

      Dim 親テーブル As New DataTable

        親テーブル.Columns.Add(New DataColumn("番号"))

        親テーブル.Columns.Add(New DataColumn("数量", GetType(Decimal)))



        For 番号 As Integer = 1 To 10

            Dim 新規行 As DataRow = 親テーブル.NewRow()

            新規行("番号") = 番号

            新規行("数量") = 番号 * 100

            親テーブル.Rows.Add(新規行)

        Next



        Dim 子テーブル As New DataTable

        子テーブル.Columns.Add(New DataColumn("番号"))

        子テーブル.Columns.Add(New DataColumn("数量", GetType(Decimal)))

        子テーブル.Columns.Add(New DataColumn("数量計", GetType(Decimal)))



        For 番号 As Integer = 1 To 10

            Dim 新規行 As DataRow = 子テーブル.NewRow()

            新規行("番号") = 番号

            新規行("数量") = 番号 * 100

            子テーブル.Rows.Add(新規行)

        Next



        Dim ds As New DataSet

        ds.Tables.Add(子テーブル)

        ds.Tables.Add(親テーブル)



        Dim 番号でリレーション As New DataRelation("サンプル", 親テーブル.Columns("番号"), 子テーブル.Columns("番号"))



        親テーブル.ChildRelations.Add(番号でリレーション)

        子テーブル.Columns("数量計").Expression = "数量 + Parent.数量"



        For Each 現在行 As DataRow In 子テーブル.Rows

            Console.WriteLine(String.Format("番号:{0}　数量計:{1}", 現在行("番号"), 現在行("数量計")))

        Next

Dim key As Object = tr1.CD

' tr1.CDをキーにDataTable2から該当するコードの行を取得します。

Dim row As DataRow = ds.DataTable2.Rows.Find(key)

' 検索できなかったときのために条件分岐

if not row is nothing then

    tr2.TOTAL = Convert.ToInt32(row.SU1) + Convert.ToInt32(row.SU2) + Convert.ToInt32(tr2.SU3)

else

    tr2.TOTAL = Convert.ToInt32(tr2.SU3)

end if