gebundenes Formular Combobox zeigt Valuemember an wenn der Wert gleich bleibt

  • VB.NET
  • .NET (FX) 4.0

    gebundenes Formular Combobox zeigt Valuemember an wenn der Wert gleich bleibt

    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 ?

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_Kostensaetze
    3. Dim Finanzen As dsFinanzen = dsFinanzen.GetInstance
    4. Dim Rechnerliste As dsRechnerliste_be = dsRechnerliste_be.GetInstance
    5. Dim dtrowsGruppenname As dsFinanzen.tbl_GruppennameRow()
    6. Sub New()
    7. ' Dieser Aufruf ist für den Designer erforderlich.
    9. InitializeComponent()
    11. Me.Tbl_Kostensätze_BKUBindingSource.DataSource = Rechnerliste.tbl_Kostensätze_BKU
    12. Me.TblErloesgruppenBindingSource.DataSource = Finanzen.tbl_Erloesgruppen
    13. Me.TblGruppennameBindingSource.DataSource = Finanzen.tbl_Gruppenname
    14. Me.TblAnwendungBindingSource.DataSource = Rechnerliste.tbl_Anwendung
    15. With Me.cboID_Erloesgruppe
    16. .DataSource = Finanzen.tbl_Erloesgruppen
    17. .DisplayMember = Finanzen.tbl_Erloesgruppen.ErloesgruppeColumn.ColumnName
    18. .ValueMember = Finanzen.tbl_Erloesgruppen.ID_ErloesgruppeColumn.ColumnName
    19. End With
    20. With Me.cboID_Gruppenname
    21. .DataSource = Finanzen.tbl_Gruppenname
    22. .DisplayMember = Finanzen.tbl_Gruppenname.GruppennameColumn.ColumnName
    23. .ValueMember = Finanzen.tbl_Gruppenname.ID_GruppennameColumn.ColumnName
    24. End With
    25. Me.cboID_Erloesgruppe.DataBindings.Add("SelectedValue", Me.Tbl_Kostensätze_BKUBindingSource, Rechnerliste.tbl_Kostensätze_BKU.ID_ErloesgruppeColumn.ColumnName)
    26. Me.cboID_Gruppenname.DataBindings.Add("SelectedValue", Me.Tbl_Kostensätze_BKUBindingSource, Rechnerliste.tbl_Kostensätze_BKU.ID_GruppennameColumn.ColumnName)
    27. For Each dtrowGruppenname As dsFinanzen.tbl_GruppennameRow In Finanzen.tbl_Gruppenname.Rows
    28. Dim nodGruppenname As New ExtendedControls.SpecialTreeNode
    29. With nodGruppenname
    30. .Art = "Gruppenname"
    31. .ID = dtrowGruppenname.ID_Gruppenname
    32. .Text = dtrowGruppenname.Gruppenname
    33. End With
    34. Me.tvwKostensaetze.nodesadd(nodGruppenname)
    35. With Rechnerliste.tbl_Kostensätze_BKU
    36. 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())
    37. For Each dtrowKostensaetze In dtrowsKostensaetze
    38. Dim nodKostensaetze As New ExtendedControls.SpecialTreeNode
    39. With nodKostensaetze
    40. .ID = dtrowKostensaetze.ID_Kostensaetze
    41. .Art = "Kostensaetze"
    42. .Text = dtrowKostensaetze.Produkt
    43. End With
    44. nodGruppenname.nodesadd(nodKostensaetze)
    45. Next
    46. End With
    47. Next
    48. End Sub
    49. Private Sub tvwKostensaetze_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles tvwKostensaetze.AfterSelect
    50. Dim extendednod As ExtendedControls.SpecialTreeNode = DirectCast(e.Node, ExtendedControls.SpecialTreeNode)
    51. Select Case extendednod.Art
    52. Case "Kostensaetze"
    53. Me.cboKostensaetze.SelectedValue = extendednod.ID
    54. MessageBox.Show(Me.cboID_Gruppenname.DisplayMember & "Text: " & Me.cboID_Gruppenname.Text & " SelectedValue " & Me.cboID_Gruppenname.SelectedValue.ToString)
    55. End Select
    56. End Sub
    57. End Class

Facebook
Telefonspende