Zitat:

Nun, zu dem relevanten Punkt, ich habe bestimmt nichts sabotiert, lediglich irgendwann darauf aufmerksam gemacht, dass wie sehr wohl das Thema typisierten Dataset (unendlich mal) im Ado.Net/DB Forum behandelt haben.

Zitat:

Ein Dataset, typisert oder nicht ist bestimmt keine OOP Darstellung einer Datenbank. [...] Um diese Daten abzufragen geht man nicht in OOP Art vor, was verlinkte Objekte über Referenzen voraussetzen würde.

   Private Sub personNachBerufToolStripMenuItem_Click(sender As Object, e As _
     EventArgs) Handles personNachBerufToolStripMenuItem.Click
      Dim OutputLines As New List(Of String)()
      For Each rwBeruf As BerufRow In NewDataset.Beruf
         OutputLines.Add(rwBeruf.bezeichnung & ": ")
         For Each rwPersonBeruf As PersonBerufRow In rwBeruf.GetPersonBerufRows( _
           )
            'Person-Namen eingerückt
            OutputLines.Add("     " & rwPersonBeruf.PersonRow.Name)
         Next
      Next
      MessageBox.Show(String.Join(Environment.NewLine, OutputLines.ToArray), _
        "Person nach Beruf")
   End Sub
 
   Private Sub berufNachPersonToolStripMenuItem_Click(sender As Object, e As _
     EventArgs) Handles berufNachPersonToolStripMenuItem.Click
      Dim OutputLines As New List(Of String)()
      For Each rwPerson As PersonRow In NewDataset.Person
         OutputLines.Add(rwPerson.Name & ": ")
         For Each rwPersonBeruf As PersonBerufRow In _
           rwPerson.GetPersonBerufRows()
            'Berufsbezeichnungen eingerückt
            OutputLines.Add("     " & rwPersonBeruf.BerufRow.bezeichnung)
         Next
      Next
      MessageBox.Show(String.Join(Environment.NewLine, OutputLines.ToArray), _
        "Berufe nach Person")
   End Sub

(Rechtschreibfehler urheberrechtlich geschützt)