Hi Jan,
der Ansatz ist im Prinzip richtig.
Es ist aber nicht nötig, über JOIN die "department_id" zu holen. Das geht einfacher über berechnete Spalten, da für JOIN eine separate Abfrage erforderlich ist, und, wenn mit
typsierten DataSets und TableAdpater gearbeitet wird, ist das zusätzlicher Aufwand.
Auch ist kein SelectedIndesChanged erforderlich, wenn hierarchische Bindingsources genutzt werden. Sie folgen automatisch den Änderungen.
Wie ich das mit den berechneten Spalten und den BindingSource meine, habe ich im folgenden Beispiel dargestellt. Der Code ist einfach in den Codeteile einer leeren Form eines
Windows-VB-Projektes zu kopieren.
Public Class Form1
Private grdChild As DataGridView
Private pan As New Panel With {.Dock = DockStyle.Right}
Private lblDepartment As New Label With {.Dock = DockStyle.Top, .Text = "Department"}
Private cbDepartment As ComboBox
Private lblPosition As New Label With {.Dock = DockStyle.Top, .Text = "Position"}
Private cbPosition As ComboBox
Private ds As New DataSet
Private bsDepartment As BindingSource ' alle Departments
Private bsPosition As BindingSource ' nur die Positions des ausgewählten Department
Private bsContact As BindingSource ' alle Kontakte
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Width = 900
ds = GetDataSet()
'
bsContact = New BindingSource(ds, "Contact")
grdChild = New DataGridView With {.Dock = DockStyle.Left, .DataSource = bsContact, .Width = 650}
'
bsDepartment = New BindingSource(ds, "Department")
cbDepartment = New ComboBox With {.Dock = DockStyle.Top, .DataSource = bsDepartment, .DisplayMember = "Bezeichnung", .ValueMember = "ID"}
cbDepartment.DataBindings.Add("SelectedValue", bsContact, "DepartmentID")
'
bsPosition = New BindingSource(bsDepartment, "DepPos")
cbPosition = New ComboBox With {.Dock = DockStyle.Top, .DataSource = bsPosition, .DisplayMember = "Bezeichnung", .ValueMember = "ID"}
cbPosition.DataBindings.Add("SelectedValue", bsContact, "FK")
'
Me.pan.Controls.AddRange(New Control() {cbPosition, lblPosition, cbDepartment, lblDepartment})
Me.Controls.AddRange(New Control() {grdChild, pan})
End Sub
Private Function GetDataSet() As DataSet
'
' DataSet und Tabellen
'
Dim ds As New DataSet
Dim dt1 As New DataTable("Department")
With dt1
With ..Columns
With ..Add("ID", GetType(Integer))
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
End With
.Add("Bezeichnung", GetType(String))
End With
End With
ds.Tables.Add(dt1)
Dim dt2 As New DataTable("Position")
With dt2
With ..Columns
With ..Add("ID", GetType(Integer))
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
End With
.Add("FK", GetType(Integer))
.Add("Bezeichnung", GetType(String))
End With
End With
ds.Tables.Add(dt2)
Dim dt3 As New DataTable("Contact")
With dt3
With ..Columns
With ..Add("ID", GetType(Integer))
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
End With
.Add("FK", GetType(Integer))
.Add("Bezeichnung", GetType(String))
End With
End With
ds.Tables.Add(dt3)
'
' Daten
'
For i = 1 To 5
Dim r1 = dt1.NewRow
r1("Bezeichnung") = String.Format("Department {0}", i)
dt1.Rows.Add(r1)
For k = 1 To 5
Dim r2 = dt2.NewRow
r2("Bezeichnung") = String.Format("Position {1} {0}", i, k)
r2("FK") = r1("ID")
dt2.Rows.Add(r2)
For l = 1 To 10
Dim r3 = dt3.NewRow
r3("Bezeichnung") = String.Format("Contact {2} {1} {0}", i, k, l)
r3("FK") = r2("ID")
dt3.Rows.Add(r3)
Next
Next
Next
'
' Tabellenbeziehungen
'
ds.Relations.Add(New DataRelation("DepPos", dt1.Columns("ID"), dt2.Columns("FK")))
ds.Relations.Add(New DataRelation("PosCon", dt2.Columns("ID"), dt3.Columns("FK")))
'
' berechnete Felder
'
dt2.Columns.Add("Department", GetType(String), "Parent(DepPos).Bezeichnung")
dt3.Columns.Add("Department", GetType(String), "Parent(PosCon).Department")
dt3.Columns.Add("Position", GetType(String), "Parent(PosCon).Bezeichnung")
dt2.Columns.Add("DepartmentID", GetType(Integer), "Parent(DepPos).ID")
dt3.Columns.Add("DepartmentID", GetType(Integer), "Parent(PosCon).DepartmentID")
'
Return ds
End Function
End Class
--
Viele Gruesse
Peter
