'Deine Tabelle 1
        Dim tbl1 As DataTable
        'eine Zeile in der Tabelle 1
        Dim rowTab1 As DataRow
 
        'Array von Datarows aus Tabelle 2 (für GetChildRows)
        Dim arRowsTab2 As DataRow()
        'Eine einezelne Zeile aus Tabelle 2
        Dim rowTab2
 
        'die erste Zeile in der Tabelle 1 holen
        rowTab1 = tbl1.Rows(0)
        'Die ChildRows zur Zeile rowTab1 aus der Tabelle 2 ins Array holen
        arRowsTab2 = rowTab1.GetChildRows("RelationZuTabelle2")
        'Nun den letzen Datenmsatz(=letzte Zeile) aus dem Array holen
        rowTab2 = arRowsTab2(arRowsTab2.Length - 1)