DataGridView zur Laufzeit befüllen - Spalten doppelt

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Lord Luxor.

    DataGridView zur Laufzeit befüllen - Spalten doppelt

    Hallo,

    ich brauche etwas Hilfe, weil ich gerade in einer gedanklichen Endlosschleife hänge und nicht weiterkomme.

    In meiner Anwendung möchte ich flexibel CSVs importieren können. Daher wollte ich die Möglichkeit einbauen, dass man die CSV in eine Datatable einliest, dort die Spaltenüberschriften auswertet und dann in einer Auflistung DB-Feld zu CSV-Feld flexibel auswählen kann, welche CSV-Spalte zu welchem DB-Feld gehört.

    VB.NET-Quellcode

    1. Dim filePath As String = OpenFileDialog1.FileName
    2. Using reader = New StreamReader(filePath)
    3. Dim csv = New CsvReader(reader, CultureInfo.InvariantCulture)
    4. Dim data_select As String
    5. Using dr = New CsvDataReader(csv)
    6. Dim dt = New DataTable
    7. dt.Load(dr)
    8. 'CSV in dt geladen
    9. DataGridView1.DataSource = dt
    10. '1. Zeile dt auslesen (Spaltenüberschriften)
    11. Dim csvspalten As New DataTable
    12. csvspalten.Columns.Add("ID")
    13. csvspalten.Columns.Add("Name")
    14. Dim zaehler As Integer = 0
    15. Dim row As DataRow = dt.Rows(0)
    16. 'Einzelne Spaltenüberschriften mit ID versehen und in csvspalten ablegen
    17. For Each item As DataColumn In row.Table.Columns
    18. Dim R As DataRow = csvspalten.NewRow
    19. R("ID") = zaehler + 1
    20. R("Name") = item
    21. csvspalten.Rows.Add(R)
    22. zaehler = zaehler + 1
    23. Next
    25. Dim dbfelder As New DataTable
    26. dbfelder.Columns.Add("ID")
    27. dbfelder.Columns.Add("Name")
    29. For z = 1 To 5
    30. Dim A As DataRow = dbfelder.NewRow
    31. A("ID") = z
    32. A("Name") = "DB-Feld " & CStr(z)
    33. dbfelder.Rows.Add(A)
    34. Next
    35. DataGridView3.DataSource = csvspalten
    37. Dim ComboCol As New DataGridViewComboBoxColumn
    38. Dim TeboCol As New DataGridViewTextBoxColumn
    39. DataGridView2.Columns.Add(TeboCol)
    40. With TeboCol
    41. .HeaderText = "DB-Feld"
    42. .Name = "DB"
    43. End With
    44. DataGridView2.Columns.Add(ComboCol)
    45. With ComboCol
    46. .HeaderText = "CSV-Feld"
    47. .Name = "CSV"
    48. .DataSource = csvspalten
    49. .DisplayMember = "Name"
    50. .ValueMember = "ID"
    51. End With
    52. 'DGV2 zusammenbauen
    53. Dim auswahl As New DataTable
    54. auswahl.Columns.Add("DB")
    55. auswahl.Columns.Add("CSV")
    56. For z = 1 To dbfelder.Rows.Count
    57. Dim A As DataRow = auswahl.NewRow
    58. data_select = "ID = " & CStr(z)
    59. Dim db_row As DataRow = dbfelder.Select(data_select).FirstOrDefault()
    60. A("DB") = db_row.Item("Name")
    61. A("CSV") = ""
    62. auswahl.Rows.Add(A)
    63. Next
    64. DataGridView2.DataSource = auswahl
    65. End Using
    67. End Using


    Ich habe da noch ein paar DGVs in der Form zum Visualisieren, ob das alles passt. Wichtig ist DataGridView2, da soll dann die Auswahltabelle rein.



    So sieht das Ergbnis aus. Ich habe statt 2 Spalten 4 Spalten. Irgendwie find ich nicht den Ansatz, wie ich die Datasource des DGV mit den im DGV definierten Columns verbinden kann.
    Wahrscheinlich ist es ein doofer Fehler, aber ich komm hier nicht weiter. Daher bin ich um jeden Tipp dankbar.

    Bye
    Markus
    8-Bit Nerd - Retro-Computer Junkie - Elektronik-Fuzzi - Lötkolben-Jongleur
    Lord Luxors Retrogalerie llrg.me

    @Lord Luxor Hat das DGV bereits im Designer Spalten zugewiesen bekommen?
    Nimm die mal raus.
    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!

    Was zu erwarten war, wenn ich mir an der Stelle den Code anschaue

    VB.NET-Quellcode

    1. DataGridView2.Columns.Add(ComboCol)
    2. '[…]
    3. DataGridView2.DataSource = auswahl
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ah ja, habs kapiert.
    Ich hab jetzt nur die DT auswahl als Datasource des DGV gesetzt, aber dann kann ich wohl die Spalte mit den CSV-Felder nicht als Combobox definieren. Zumindest habe ich in anderen Foren gelesen, dass nachdem die Column im DGV gesetzt ist, kann man den ColumnType nicht mehr ändern, weil man auf diese Eigenschaft nicht zugreifen kann.

    Ich hab jetzt das Ganze nochmal umgebaut und die DT dbfelder dem DGV als Datasource zugewiesen und dann eine weitere Spalte angehängt mit der Combobox.

    VB.NET-Quellcode

    1. Dim filePath As String = OpenFileDialog1.FileName
    2. Using reader = New StreamReader(filePath)
    3. Dim csv = New CsvReader(reader, CultureInfo.InvariantCulture)
    4. Using dr = New CsvDataReader(csv)
    5. Dim dt = New DataTable
    6. dt.Load(dr)
    7. 'CSV in dt geladen
    8. DataGridView1.DataSource = dt
    9. '1. Zeile dt auslesen (Spaltenüberschriften)
    10. Dim csvspalten As New DataTable
    11. csvspalten.Columns.Add("ID")
    12. csvspalten.Columns.Add("Name")
    13. Dim zaehler As Integer = 0
    14. Dim row As DataRow = dt.Rows(0)
    15. 'Einzelne Spaltenüberschriften mit ID versehen und in csvspalten ablegen
    16. For Each item As DataColumn In row.Table.Columns
    17. Dim R As DataRow = csvspalten.NewRow
    18. R("ID") = zaehler + 1
    19. R("Name") = item
    20. csvspalten.Rows.Add(R)
    21. zaehler = zaehler + 1
    22. Next
    23. Dim dbfelder As New DataTable
    24. dbfelder.Columns.Add("Name")
    25. For z = 1 To 5
    26. Dim A As DataRow = dbfelder.NewRow
    27. A("Name") = "DB-Feld " & CStr(z)
    28. dbfelder.Rows.Add(A)
    29. Next
    30. DataGridView3.DataSource = csvspalten
    31. Dim ComboCol As New DataGridViewComboBoxColumn
    32. DataGridView2.DataSource = dbfelder
    33. DataGridView2.Columns.Add(ComboCol)
    34. With ComboCol
    35. .HeaderText = "CSV-Feld"
    36. .Name = "CSV"
    37. .DataSource = csvspalten
    38. .DisplayMember = "Name"
    39. .ValueMember = "ID"
    40. End With
    41. End Using
    42. End Using


    Optisch passt das jetzt.



    Leider kann ich jetzt die Combobox nicht mehr aufklappen.

    Ich zweifel so langsam, ob meine Idee mittels DGV abbildbar ist.

    Gruß
    Markus
    8-Bit Nerd - Retro-Computer Junkie - Elektronik-Fuzzi - Lötkolben-Jongleur
    Lord Luxors Retrogalerie llrg.me

    Klappt bei mir.

    Der Inhalt der Datendatei:

    Quellcode

    1. Foo,Bar
    2. 1,A
    3. 2,B
    4. 3,C

    Bilder

    • Result.png

      4,77 kB, 967×165, 107 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hi VaporiZed,

    Danke für Deine Hilfe. Dann hab ich wohl irgendwas an dem DGV direkt vermurkst. Das schaue ich mir nochmal an.

    EDIT: Man sollte im DGV den Haken bei "Bearbeiten" auch setzen ... :whistling:
    8-Bit Nerd - Retro-Computer Junkie - Elektronik-Fuzzi - Lötkolben-Jongleur
    Lord Luxors Retrogalerie llrg.me