Se ho capito bene vuoi creare una reazione fra 2 tabelle di un dataset, ecco come ho risolto io:
codice:
Dim Colonna1 as DataColumn
Dim Colonna2 as DataColumn
Dim MyDR as DataRelation
Colonna1 = DS.Tables("MyTable1").Columns("ColonnaComuneAlle2Tabelle")
Colonna2 = DS.Tables("MyTable2").Columns("ColonnaComuneAlle2Tabelle")
MyDR = New DataRelation("MyRelation", Colonna1, Colonna2)
MyDataSet.Relations.Add(MyDR)
Dim Riga1, Riga2 As DataRow
Dim i as Integer
i = 0
For Each Riga1 In MyDataSet.Tables("MyTable2").Rows
Riga2 = Riga1.GetParentRow(MyDR)
DS.Tables("MyTable12).Rows(i)("ColonnaX") = Riga2("ColonnaX")
i = i + 1
Next Riga1