Ich habe hier ein seltsames Phänomen.
Ich habe ein gebundenes Formular mit gebundenen Comboboxen.
Die combobox cboKostensaetze ist an die Bindingsource des Formulars gebunden, so das die Einträge über diese Combobox oder das Treeview ausgewählt werden können.
Das seltsame Verhalten zeigte sich auch schon, als nur die Combobpx zum Suchen vorhanden war. Mit Hilfe des Treeviews konnte ich den Fehler auf die gleichbleibenden Werte eingrenzen.
Wenn sich der Valuemember der Combobox ändert, wird auch der Displaymember angezeigt.
Bleibt der Valuemember jedoch gleich zeigt er auf einmal nur den Valuemember an.
Die messagebox in der Routine tvwKostensaetze_AfterSelect bestätigt die Werte die ich in der Combobox zu sehen bekomme.
Woran kann das liegen ?
Ich habe ein gebundenes Formular mit gebundenen Comboboxen.
Die combobox cboKostensaetze ist an die Bindingsource des Formulars gebunden, so das die Einträge über diese Combobox oder das Treeview ausgewählt werden können.
Das seltsame Verhalten zeigte sich auch schon, als nur die Combobpx zum Suchen vorhanden war. Mit Hilfe des Treeviews konnte ich den Fehler auf die gleichbleibenden Werte eingrenzen.
Wenn sich der Valuemember der Combobox ändert, wird auch der Displaymember angezeigt.
Bleibt der Valuemember jedoch gleich zeigt er auf einmal nur den Valuemember an.
Die messagebox in der Routine tvwKostensaetze_AfterSelect bestätigt die Werte die ich in der Combobox zu sehen bekomme.
Woran kann das liegen ?
VB.NET-Quellcode
-
- Public Class frm_Kostensaetze
- Dim Finanzen As dsFinanzen = dsFinanzen.GetInstance
- Dim Rechnerliste As dsRechnerliste_be = dsRechnerliste_be.GetInstance
- Dim dtrowsGruppenname As dsFinanzen.tbl_GruppennameRow()
- Sub New()
- ' Dieser Aufruf ist für den Designer erforderlich.
- InitializeComponent()
- Me.Tbl_Kostensätze_BKUBindingSource.DataSource = Rechnerliste.tbl_Kostensätze_BKU
- Me.TblErloesgruppenBindingSource.DataSource = Finanzen.tbl_Erloesgruppen
- Me.TblGruppennameBindingSource.DataSource = Finanzen.tbl_Gruppenname
- Me.TblAnwendungBindingSource.DataSource = Rechnerliste.tbl_Anwendung
- With Me.cboID_Erloesgruppe
- .DataSource = Finanzen.tbl_Erloesgruppen
- .DisplayMember = Finanzen.tbl_Erloesgruppen.ErloesgruppeColumn.ColumnName
- .ValueMember = Finanzen.tbl_Erloesgruppen.ID_ErloesgruppeColumn.ColumnName
- End With
- With Me.cboID_Gruppenname
- .DataSource = Finanzen.tbl_Gruppenname
- .DisplayMember = Finanzen.tbl_Gruppenname.GruppennameColumn.ColumnName
- .ValueMember = Finanzen.tbl_Gruppenname.ID_GruppennameColumn.ColumnName
- End With
- Me.cboID_Erloesgruppe.DataBindings.Add("SelectedValue", Me.Tbl_Kostensätze_BKUBindingSource, Rechnerliste.tbl_Kostensätze_BKU.ID_ErloesgruppeColumn.ColumnName)
- Me.cboID_Gruppenname.DataBindings.Add("SelectedValue", Me.Tbl_Kostensätze_BKUBindingSource, Rechnerliste.tbl_Kostensätze_BKU.ID_GruppennameColumn.ColumnName)
- For Each dtrowGruppenname As dsFinanzen.tbl_GruppennameRow In Finanzen.tbl_Gruppenname.Rows
- Dim nodGruppenname As New ExtendedControls.SpecialTreeNode
- With nodGruppenname
- .Art = "Gruppenname"
- .ID = dtrowGruppenname.ID_Gruppenname
- .Text = dtrowGruppenname.Gruppenname
- End With
- Me.tvwKostensaetze.nodesadd(nodGruppenname)
- With Rechnerliste.tbl_Kostensätze_BKU
- Dim dtrowsKostensaetze As dsRechnerliste_be.tbl_Kostensätze_BKURow() = DirectCast(.Select(.ID_GruppennameColumn.ColumnName & "=" & dtrowGruppenname.ID_Gruppenname, .ProduktColumn.ColumnName), dsRechnerliste_be.tbl_Kostensätze_BKURow())
- For Each dtrowKostensaetze In dtrowsKostensaetze
- Dim nodKostensaetze As New ExtendedControls.SpecialTreeNode
- With nodKostensaetze
- .ID = dtrowKostensaetze.ID_Kostensaetze
- .Art = "Kostensaetze"
- .Text = dtrowKostensaetze.Produkt
- End With
- nodGruppenname.nodesadd(nodKostensaetze)
- Next
- End With
- Next
- End Sub
- Private Sub tvwKostensaetze_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles tvwKostensaetze.AfterSelect
- Dim extendednod As ExtendedControls.SpecialTreeNode = DirectCast(e.Node, ExtendedControls.SpecialTreeNode)
- Select Case extendednod.Art
- Case "Kostensaetze"
- Me.cboKostensaetze.SelectedValue = extendednod.ID
- MessageBox.Show(Me.cboID_Gruppenname.DisplayMember & "Text: " & Me.cboID_Gruppenname.Text & " SelectedValue " & Me.cboID_Gruppenname.SelectedValue.ToString)
- End Select
- End Sub
- End Class