Ho risolto così:

codice:
	Dim Riga1, Riga2 As DataRow
	i = 0
	For Each Riga1 In  MyTable2.Rows
		Riga2 = Riga1.GetParentRow(MyDR)
		DS.Tables("Giocatori").Rows(i)("Ruolo") = Riga2("Ruolo")
		i = i + 1
	Next Riga1
se qualcuno ha un metodo migliore....