Gebundene Combobox in Datagridview vorselektieren

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Gebundene Combobox in Datagridview vorselektieren

    Hallo zusammen.

    Ich komme einfach nicht weiter.

    Hier im Forum gibt es einen ähnlichen Beitrag mit dem Titel "Combobox in Datagridview Wert vorselektieren". Aber dieser Ansatz scheint bei einer gebundenen ComboBox nicht zu funktionieren.

    Ich versuche mal mein Problem zu formulieren:

    Ich habe ein ungebundenes DataGridView und darin als 1. Spalte eine gebundene ComboBox und 2 weitere ungebundene Standardspalten.

    Das manuelle Füllen, Auswählen und Abrufen der Werte funktioniert wunderbar.

    Die ComboBox binde ich wie folgt:

    VB.NET-Quellcode

    1. Dim dgvCol As DataGridViewComboBoxColumn
    2. dgvCol = dgv.Columns("colAnrede")
    3. dgvCol.DataSource = dvAnreden
    4. dgvCol.DisplayMember = "Wert"
    5. dgvCol.ValueMember = "Uid"


    Wenn ich einen neuen Eintrag (Row) im DataGridView erstelle, mache ich das mit

    VB.NET-Quellcode

    1. dgv.Rows.Add(Nothing, "", "")
    und kann dann die Anrede aus der ComboBox auswählen und die beiden anderen Spalten beliebig füllen.

    Jetzt bin ich an einem Punkt, wo ich das DataGridView wieder mit einigen zuvor gesammelten Werten befüllen möchte.

    Ich kann die beiden Standardspalten ohne Probleme setzen und damit weiterarbeiten. Aber die ComboBox in der ersten Spalte bringt mich zum verzweiflen!

    Ich bekomm fast immer die Fehlermeldung mit einer DataGridView-Ausnahme, oder es steht kein Wert in der ComboBox.

    Könnt Ihr mir sagen, wie ich diese vorab selektieren kann?

    Vorab Danke für eure Hilfe und viele Grüße, Michl

    Also:
    Im DataView dvAnrede sind aktuell 4 Uid's und 4 Werte. Diese Werte werden auch in der ComboBox zur Auswahl gestellt.
    Ich speichere die Ergebnisse (auch Uid und Wert der ComboBox) aus dem dgv (+ einige andere Werte) in einer anderen DataTable.
    Aus diesen teporär gespeicherten Daten möchte ich die Rows (inkl. ComboBox) wieder füllen/herstellen.

    Die Uid's die ich in der ComboBox setzen möchte sind im meiner temporären Tabelle vorhanden.

    Ich hoffe, dass ich dich nicht nochmals falsch verstanden habe, und das deine Frage beantwortet.

    Irgendwelche Daten dürften trotzdem nicht übereinstimmen...
    Du speicherst die Daten eines ungebundenen DGV's in eine Tabelle und später wieder retour?
    Wieso bindest du dad DGV nicht gleich über e8ne BS an die Tabelle? Dann ersparst du dir das ganze hin und her...

    Hallo VB1963,

    es gibt keinen besonderen Grund warum das dgv nicht per BS gebunden habe, außer dass mit den DataTables später hinzugekommen ist und ich das ganze nicht nochmal umbauen wollte. Weiterhin fehlt mir hier noch einiges an Erfahrung.

    ich hab mal auf die schnelle ein kleines Beispiel meines Problems zusammengestellt. wo ich mir eigentlich sicher bin, dass ich die Uids richtig habe.
    Mir fehlt ja nur die Vorselektierung der ComboBox.

    Vielleicht kannst du mir trotzden sagen wie ich das mache, dass die ComboBox Vorselektiert ist.

    VB.NET-Quellcode

    1. Dim dtAnrede As New DataTable
    2. dtAnrede.Columns.Add("Uid", System.Type.GetType("System.UInt64"))
    3. dtAnrede.Columns.Add("Anrede", System.Type.GetType("System.String"))
    4. Dim myNewRow As DataRow
    5. myNewRow = dtAnrede.NewRow()
    6. myNewRow("Uid") = 1
    7. myNewRow("Anrede") = "Dr."
    8. dtAnrede.Rows.Add(myNewRow)
    10. myNewRow = dtAnrede.NewRow()
    11. myNewRow("Uid") = 2
    12. myNewRow("Anrede") = "Fa."
    13. dtAnrede.Rows.Add(myNewRow)
    15. myNewRow = dtAnrede.NewRow()
    16. myNewRow("Uid") = 3
    17. myNewRow("Anrede") = "Frau"
    18. dtAnrede.Rows.Add(myNewRow)
    20. myNewRow = dtAnrede.NewRow()
    21. myNewRow("Uid") = 4
    22. myNewRow("Anrede") = "Herr"
    23. dtAnrede.Rows.Add(myNewRow)
    25. Dim dvAnrede As DataView = New DataView(dtAnrede)
    26. 'combobox "Anrede" füllen
    27. Dim dgvCol As DataGridViewComboBoxColumn
    28. dgvCol = dgv.Columns("colAnrede")
    29. dgvCol.DataSource = dvAnrede
    30. dgvCol.ValueMember = "Uid"
    31. dgvCol.DisplayMember = "Anrede"
    33. 'So, die ComboBox ist jetzt gefüllt
    34. Dim dtTempData As New DataTable
    35. dtTempData.Columns.Add("Uid", System.Type.GetType("System.UInt64"))
    36. dtTempData.Columns.Add("ArUid", System.Type.GetType("System.UInt64"))
    37. dtTempData.Columns.Add("ArBez", System.Type.GetType("System.String"))
    38. dtTempData.Columns.Add("HwNr", System.Type.GetType("System.String"))
    39. dtTempData.Columns.Add("Intern", System.Type.GetType("System.String"))
    40. Dim myTempRow As DataRow
    42. myTempRow = dtTempData.NewRow()
    43. myTempRow("Uid") = 1
    44. myTempRow("ArUid") = 2
    45. myTempRow("ArBez") = "Fa."
    46. myTempRow("HwNr") = "0815"
    47. myTempRow("Intern") = "Vermerk1"
    48. dtTempData.Rows.Add(myTempRow)
    50. myTempRow = dtTempData.NewRow()
    51. myTempRow("Uid") = 2
    52. myTempRow("ArUid") = 4
    53. myTempRow("ArBez") = "Herr"
    54. myTempRow("HwNr") = "4711"
    55. myTempRow("Intern") = "Vermerk5"
    56. dtTempData.Rows.Add(myTempRow)
    58. Dim dvTempData As DataView = New DataView(dtTempData)
    59. For i = 0 To dvTempData.Count - 1
    60. Dim tmpArUid As Integer = dvTempData(i).Item("ArUid")
    61. Dim tmpArBez As String = dvTempData(i).Item("ArBez")
    62. Dim tmpHwNr As String = dvTempData(i).Item("HwNr")
    63. Dim tmpIntern As String = dvTempData(i).Item("Intern")
    65. dgv.Rows.Add(Nothing, tmpHwNr, tmpIntern) 'Wenn ich hier NOTHING durch "tmpArUid" oder "tmpArBez" ersetze kommt eine Fehlermeldung
    66. 'dgv.Rows(i).Cells("colAnrede").Value = tmpArBez 'Wenn ich hier VALUE durch "tmpArUid" oder "tmpArBez" ersetze kommt eine Fehlermeldung
    67. Next

    OK, ich hätte diesen Code vielleicht nicht als Beispiel, sondern als Code-Schnipsel deklarieren sollen. Sorry dafür.

    VB1963 schrieb:

    Irgendwelche Daten dürften trotzdem nicht übereinstimmen...
    Ich habe mit dem obigen Code nur darstellen wollen, das die Uid's in beiden Tabellen übereinstimmen und ich es trotzdem nicht hinbekomme.

    Wenn ihr für das Problem eine Solution braucht, werde ich mich an die Arbeit machen und eine kleine erstellen um es besser darzustellen.

    PS. wird aber bis zum nächsten WE dauern, da ich unter der Woche keine Zeit habe.

    Trotzdem mal Danke für eure Mühe.

    Hallo VB1963 und ErfinderDesRades,

    Ich hab doch noch die Zeit gefunden und mal ein kleines Beispielprojekt erstellt, um mein Problem besser zu erläutern.

    Ich hoffe, dass dieses Beispiel ausreicht und danke euch vorab nochmals für eure Hilfe.

    Wenn ich die Daten lade, sollen die gespeicherten Anreden in der ComboBox angezeigt werden, und das krieg ich einfach nich hin :(

    Gruß, Michl
    Dateien

    @Michl Hast Du so viele Anreden, dass Du dafür den Typ UInt64 vergeben musst?
    Mach da Int32 draus und los.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub cmdLoadData_Click(sender As Object, e As EventArgs) Handles cmdLoadData.Click
    2. For i = 0 To dvTempData.Count - 1
    3. Dim tmpArUid As Integer = dvTempData(i).Item("ArUid")
    4. Dim tmpArBez As String = dvTempData(i).Item("ArBez")
    5. Dim tmpHwName As String = dvTempData(i).Item("HwName")
    6. Dim tmpHwNr As String = dvTempData(i).Item("HwNr")
    7. Dim tmpIntern As String = dvTempData(i).Item("Intern")
    9. dgv.Rows.Add(tmpArUid, tmpHwName, tmpHwNr, tmpIntern) ' dies
    10. Next
    11. End Sub
    13. Private Sub CreateColsInDataTable()
    14. 'Tabelle Anreden
    15. dtAnrede.Columns.Add("Uid", System.Type.GetType("System.Int32")) ' dies
    16. dtAnrede.Columns.Add("Anrede", System.Type.GetType("System.String"))
    18. 'Tabelle TempData
    19. dtTempData.Columns.Add("Uid", System.Type.GetType("System.UInt64"))
    20. dtTempData.Columns.Add("ArUid", System.Type.GetType("System.UInt64"))
    21. dtTempData.Columns.Add("ArBez", System.Type.GetType("System.String"))
    22. dtTempData.Columns.Add("HwName", System.Type.GetType("System.String"))
    23. dtTempData.Columns.Add("HwNr", System.Type.GetType("System.String"))
    24. dtTempData.Columns.Add("Intern", System.Type.GetType("System.String"))
    25. End Sub

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    (Ähm - das löst sein Prob aber auch nicht)

    Hat imo insgesamt so kein Wert.
    Lass die Faxen mit Columns zufügen und Kram, und fang an mit typisiertem Dataset, und standardmäßigem Databinding.
    gugge "JoiningView" auf vier Views-Videos, das ist genau der Anwendungsfall.

    Habs jetzt auch mal umgesetzt, mit Option Strict On, und auch leistungsoptimiertes Laden/Speichern von Platte.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports ComoBoxVorselektieren.HandwerkerDts
    4. Imports System.IO
    6. Public Class Form2
    8. Private _DataFile As New FileInfo("..\..\Handwerker.xml")
    10. Private Sub cmdClose_Click(sender As Object, e As EventArgs) Handles cmdClose.Click
    11. Me.Close()
    12. End Sub
    14. Private Sub cmdLoadData_Click(sender As Object, e As EventArgs) Handles btGenerateData.Click
    15. With HandwerkerDts
    16. .Clear()
    17. For Each ar In "Dr. Fa. Frau Herr".Split
    18. .Anrede.AddAnredeRow(ar)
    19. Next
    20. .Handwerker.AddHandwerkerRow(.Anrede(0), "FremdeFirma", "0815", "Vermerk1")
    21. .Handwerker.AddHandwerkerRow(.Anrede(3), "Mustermann", "4711", "Vermerk5")
    22. End With
    23. End Sub
    25. Protected Overrides Sub OnClosed(e As EventArgs)
    26. While Me.Controls.Count > 0 : Me.Controls(Me.Controls.Count - 1).Dispose() : End While
    27. MyBase.OnClosed(e)
    28. End Sub
    30. Private Sub btLoad_Click(sender As Object, e As EventArgs) Handles btLoad.Click
    31. For Each bs In {HandwerkerBindingSource} ' alle BindingSources (ist zZt nur eine) deaktivieren
    32. bs.RaiseListChangedEvents = False
    33. Next
    34. For Each tb As DataTable In HandwerkerDts.Tables ' alle DataTables deaktivieren
    35. tb.BeginLoadData()
    36. Next
    37. HandwerkerDts.Clear()
    38. HandwerkerDts.ReadXml(_DataFile.FullName)
    39. For Each tb As DataTable In HandwerkerDts.Tables
    40. tb.EndLoadData()
    41. Next
    42. HandwerkerDts.EnforceConstraints = True 'Constraints reaktivieren
    43. For Each bs In {HandwerkerBindingSource}
    44. bs.RaiseListChangedEvents = True
    45. bs.ResetBindings(False)
    46. Next
    47. End Sub
    49. Private Sub btSave_Click(sender As Object, e As EventArgs) Handles btSave.Click
    50. HandwerkerDts.WriteXml(_DataFile.FullName)
    51. System.Media.SystemSounds.Asterisk.Play()
    52. End Sub
    53. End Class
    Dateien

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook
Telefonspende