Collection aus Klasse in einem DataGridView anzeigen und aktualisieren

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

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von bahnski.

    Collection aus Klasse in einem DataGridView anzeigen und aktualisieren

    Hallo,da ich noch nicht lange mit VB .net zu tun habe und ich wohl noch zu viel vba denke, komme ich mit meinem Problem nicht weiter!
    In meinem Beispiel habe ich eine Klasse Table und eine weitere Klasse mit dem Namen Field.
    Über die Klasse Table kann ich neue Felder dem Table hinzufügen. Diese werden dort in der Klasse Table in einer Collection gespeichert. Diese Collection übergebe ich als Datasource an das DataGridView.
    Wenn schon Felder angelegt sind, werden diese auch angezeigt! Füge ich später aber noch welche hinzu, oder ändere ich Werte, werden diese nicht angezeigt! Was muss ich machen, damit das aber funktioniert! Refresh und Update brachten keine Besserung!
    Starte ich mein Testprogramm und drücke auf die „Ändern“ Schaltfläche, so werden die Daten direkt geändert. Klicke ich aber zuerst auf das DataGridView, wird der Wert geändert, aber nicht angezeigt!
    Über jede Hilfe bin ich dankbar!
    Hier der Code und im Anhang mein Testprojekt!

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim objTable As New Table
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. With objTable
    5. .TableName = "Test"
    6. .TableDescription = "Testtabelle"
    7. .FieldAdd("Nachname", "Der Nachname, vor der Änderung")
    8. End With
    9. DataGridView1.DataSource = objTable.Fields
    10. End Sub
    12. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    13. Dim objField As New Table.Field
    14. With objField
    15. .FieldName = "Vorname"
    16. .FieldDescritpion = "Der Vorname"
    17. End With
    18. objTable.FieldAdd(objField)
    19. End Sub
    21. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    22. objTable.FieldChange("Nachname", "Der Nachname nach der Änderung!")
    23. End Sub
    24. End Class
    26. Public Class Table
    27. Public Property TableName As String
    28. Public Property TableDescription As String
    29. Public Property Fields As New Collection
    31. Public Sub FieldAdd(FieldName As String, Description As String)
    32. Dim objField As New Table.Field
    33. With objField
    34. .FieldName = FieldName
    35. .FieldDescritpion = Description
    36. End With
    37. Fields.Add(objField, objField.FieldName)
    38. End Sub
    40. Public Sub FieldAdd(Field As Table.Field)
    41. Fields.Add(Field, Field.FieldName)
    42. End Sub
    44. Public Function FieldGet(Fieldname As String) As Table.Field
    45. Return Fields(Fieldname)
    46. End Function
    48. Public Function FieldGet(Index As Integer) As Table.Field
    49. Return Fields(Index)
    50. End Function
    52. Public Sub FieldChange(Fieldname As String, Field As Table.Field)
    53. Dim objField As Table.Field = Fields.Item(Fieldname) = Field
    54. End Sub
    56. Public Sub FieldChange(Fieldname As String, Description As String)
    57. Dim objField As Table.Field = Fields.Item(Fieldname)
    58. objField.FieldDescritpion = Description
    59. End Sub
    61. Public Class Field
    62. Public Property FieldName As String
    63. Public Property FieldDescritpion As String
    64. End Class
    65. End Class​


    Die Form:

    VB.NET-Quellcode

    1. ​<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.DataGridView1 = New System.Windows.Forms.DataGridView()
    26. Me.Button1 = New System.Windows.Forms.Button()
    27. Me.Button2 = New System.Windows.Forms.Button()
    28. CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
    29. Me.SuspendLayout()
    30. '
    31. 'DataGridView1
    32. '
    33. Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    34. Me.DataGridView1.Location = New System.Drawing.Point(12, 12)
    35. Me.DataGridView1.Name = "DataGridView1"
    36. Me.DataGridView1.Size = New System.Drawing.Size(776, 150)
    37. Me.DataGridView1.TabIndex = 0
    38. '
    39. 'Button1
    40. '
    41. Me.Button1.Location = New System.Drawing.Point(12, 229)
    42. Me.Button1.Name = "Button1"
    43. Me.Button1.Size = New System.Drawing.Size(75, 23)
    44. Me.Button1.TabIndex = 1
    45. Me.Button1.Text = "Füge Wert hinzu"
    46. Me.Button1.UseVisualStyleBackColor = True
    47. '
    48. 'Button2
    49. '
    50. Me.Button2.Location = New System.Drawing.Point(106, 229)
    51. Me.Button2.Name = "Button2"
    52. Me.Button2.Size = New System.Drawing.Size(130, 23)
    53. Me.Button2.TabIndex = 2
    54. Me.Button2.Text = "Ändere Wert Index 1"
    55. Me.Button2.UseVisualStyleBackColor = True
    56. '
    57. 'Form1
    58. '
    59. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    60. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    61. Me.ClientSize = New System.Drawing.Size(800, 266)
    62. Me.Controls.Add(Me.Button2)
    63. Me.Controls.Add(Me.Button1)
    64. Me.Controls.Add(Me.DataGridView1)
    65. Me.Name = "Form1"
    66. Me.Text = "Form1"
    67. CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
    68. Me.ResumeLayout(False)
    70. End Sub
    72. Friend WithEvents DataGridView1 As DataGridView
    73. Friend WithEvents Button1 As Button
    74. Friend WithEvents Button2 As Button
    75. End Class
    Dateien

    • DatagridTest.zip

      (290,39 kB, 124 mal heruntergeladen, zuletzt: )

    Danke! Danke! Danke! Ist das schön einfach damit! Muss zwar viel Code umschreiben! Aber was soll es! Habe wieder was gelernt! Hier mein Testcode!

    VB.NET-Quellcode

    1. ​Imports System.ComponentModel
    3. Public Class Form1
    4. Dim objTable As New Table
    5. Dim objField As New Table.Field
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. With objTable
    8. .TableName = "Test"
    9. .TableDescription = "Testtabelle"
    10. With objField
    11. .FieldName = "Nachname"
    12. .FieldDescritpion = "Der Nachname, vor der Änderung"
    13. End With
    14. .Fields.Add(objField)
    15. End With
    16. DataGridView1.DataSource = objTable.Fields
    17. End Sub
    19. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. Dim objField As New Table.Field
    21. With objField
    22. .FieldName = "Vorname"
    23. .FieldDescritpion = "Der Vorname"
    24. End With
    25. objTable.Fields.Add(objField)
    27. End Sub
    29. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    30. Dim objField As New Table.Field
    31. With objField
    32. .FieldName = "Nachname"
    33. .FieldDescritpion = "Der Nachname nach der Änderung!"
    34. End With
    35. objTable.Fields.Item(0) = objField
    37. End Sub
    38. End Class
    40. Public Class Table
    41. Public Property TableName As String
    42. Public Property TableDescription As String
    43. Public Property Fields As New BindingList(Of Table.Field)
    45. Public Class Field
    46. Public Property FieldName As String
    47. Public Property FieldDescritpion As String
    48. End Class
    49. End Class