Wechsel der Datasource verursacht Fehler im DGV

  • VB.NET
  • .NET (FX) 4.0

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Wechsel der Datasource verursacht Fehler im DGV

    Hallo,

    in meiner Form habe ich ein Datagridview (mit Designer erstellt).
    Nun möchte ich gerne dieses DGV für diverse Daten nutzen.

    Vor dem Speichern prüfe ich einige Werte in den Zellen.
    Beim ersten Setzen der Datasource treten keine Probleme auf.

    Wechsel ich nun die Datenquelle (erst die alte löschen, mit datasource = nothing)
    bekomme ich bei dem Versuch der Datenprüfung den Fehler: Ein Ausnahmefehler des Typs "System.NullReferenceException"
    Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    Verzichte ich auf die Überprüfung erhalte ich keine Fehlermeldung und die Daten werden korrekt in die Datenbank übernommen.
    Gruß Markus

    Vorgang:
    - datasource setzen
    - Prüfung
    - Prüfung ok --> Speichern
    - datasource nothing
    - datasource neu setzen
    - Prüfung -> hier kommt der Fehler
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

    Westerwälder schrieb:

    Wechsel ich nun die Datenquelle (erst die alte löschen, mit datasource = nothing)
    bekomme ich bei dem Versuch der Datenprüfung den Fehler: Ein Ausnahmefehler des Typs "System.NullReferenceException"
    Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    Verzichte ich auf die Überprüfung erhalte ich keine Fehlermeldung und die Daten werden korrekt in die Datenbank übernommen.
    Sieht so aus, als machest du etwas falsch bei der Überprüfung.

    Guten Morgen.
    Habe den Fehler lokalisiert.

    Nach Übergabe der Datenquelle an das DGV (datasource = ...)
    manipuliere ich einige Columns-Eigenschaft des DGV, wie
    - Visible, HeaderText usw.

    Verzichte ich auf diese Änderungen am DGV erhalte ich keine Fehlermeldung mehr.
    Das DGV macht halt optisch nun nicht mehr viel her.

    Gibt es da vlt. eine andere Möglichkeit?
    Gruß Markus

    Hier der Code

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Setup_Termine_Load(sender As Object, e As EventArgs) Handles Me.Load
    2. Me.Halt = True
    4. ' Mode:
    5. ' 101 - Abfall-Abfuhrtermine
    6. ' 102 - Serientermine
    7. ' 103 - Ultiomotermine
    8. ' 104 - Einzeltermine
    9. ' 105 - Ferientermine
    11. Me.Halt = False
    12. Me.Modus = 102
    13. Me.TS_Terminart.ComboBox.Text = "Serientermine"
    14. End sub
    16. Private Sub TS_Terminart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TS_Terminart.SelectedIndexChanged
    17. If Me.Halt = True Then Exit Sub
    18. With Me.TS_Terminart.ComboBox
    19. If .Text = "Einzeltermine" Then
    20. ' Me.DTP_Datum.DataBindings.Remove(Me.DatumBinding)
    21. Me.EinzelTermin_104()
    22. Exit Sub
    23. End If
    25. If .Text = "Serientermine" Then
    26. ' Me.DTP_Startdatum.DataBindings.Remove(Me.StartdatumBinding)
    27. Me.SerienTermin_102()
    28. Exit Sub
    29. End If
    30. End With
    31. End Sub
    33. Private Sub SerienTermin_102()
    34. If Me.Halt = True Then Exit Sub
    35. Me.Modus = 102
    36. Me.DTP_Enddatum.Visible = False
    37. Me.DTP_Startdatum.Visible = True
    38. Me.DTP_Datum.Visible = False
    39. ' Me.DTP_Startdatum.DataBindings.Add(Me.StartdatumBinding)
    41. With Me.DGV_Termine 'Datagridview
    42. .EndEdit()
    43. .DataSource = Nothing
    44. .Columns.Clear()
    45. .Rows.Clear()
    46. End With
    48. With Kalender.DataQuelle ' Bindingsource
    49. .CancelEdit()
    50. .Filter = "Type = '" & Me.Modus & "'"
    51. End With
    53. 　
    54. With Me.DGV_Termine
    55. .DataSource = Kalender.DataQuelle
    56. .Columns("ID").Visible = False
    57. .Columns("Type").Visible = False
    58. .Columns("TypeName").Visible = False
    59. .Columns("Anwenden").HeaderText = "Ak."
    60. .Columns("Anwenden").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    62. With .Columns("Bezeichnung")
    63. .HeaderText = "Termin - Bezeichnung"
    64. .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    65. End With
    67. .Columns("Datum").Visible = False
    68. With .Columns("Startdatum")
    69. .HeaderText = "Startdatum"
    70. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    71. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    72. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    73. .DefaultCellStyle.Format = "d"
    74. End With
    76. With .Columns("Enddatum")
    77. .HeaderText = "Enddatum"
    78. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    79. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    80. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    81. .DefaultCellStyle.Format = "d"
    82. End With
    84. .Columns("Uhrzeit").Visible = False
    85. With .Columns("RT")
    86. .HeaderText = "Takt Type"
    87. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    88. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    89. End With
    91. With .Columns("Takt")
    92. .HeaderText = "Takt"
    93. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    94. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    95. End With
    97. With .Columns("DBR")
    98. .HeaderText = "Zähler"
    99. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    100. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    101. End With
    102. End With
    104. End Sub
    106. Private Sub EinzelTermin_104()
    107. If Me.Halt = True Then Exit Sub
    108. Me.Modus = 104
    109. Me.DTP_Enddatum.Visible = False
    110. Me.DTP_Startdatum.Visible = False
    111. Me.DTP_Datum.Visible = True
    112. ' Me.DTP_Datum.DataBindings.Add(DatumBinding)
    114. With Me.DGV_Termine 'Datagridview
    115. .EndEdit()
    116. .DataSource = Nothing
    117. .Columns.Clear()
    118. .Rows.Clear()
    119. End With
    121. With Kalender.DataQuelle ' Bindingsource
    122. .CancelEdit()
    123. .Filter = "Type = '" & Me.Modus & "'"
    124. End With
    126. With Me.DGV_Termine
    127. .DataSource = Kalender.DataQuelle
    128. .Columns("ID").Visible = False
    129. .Columns("Type").Visible = False
    130. .Columns("TypeName").Visible = False
    131. .Columns("Anwenden").HeaderText = "Ak."
    132. .Columns("Anwenden").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    134. With .Columns("Bezeichnung")
    135. .HeaderText = "Termin - Bezeichnung"
    136. .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    137. End With
    139. With .Columns("Datum")
    140. .HeaderText = "Termindatum"
    141. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    142. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    143. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    144. .DefaultCellStyle.Format = "d"
    145. End With
    147. With .Columns("Uhrzeit")
    148. .HeaderText = "Uhrzeit"
    149. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    150. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    151. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    152. .DefaultCellStyle.Format = "d"
    153. End With
    155. .Columns("Startdatum").Visible = False
    156. .Columns("Enddatum").Visible = False
    157. .Columns("RT").Visible = False
    158. .Columns("Takt").Visible = False
    159. .Columns("DBR").Visible = False
    160. End With
    162. End Sub


    Gruß Markus

    hast du schonmal versucht was passiert wenn du

    VB.NET-Quellcode

    1. ​.Filter = "Type = '" & Me.Modus & "'"


    mal weg lässt?

    die columns sind auch alle vorhanden in der datasource?

    ich kenne mich mit dieser, ich nenne es mal manuellen art des databinding nicht aus, ich übergebe immer tabellen aus einem typ ds.
    ist viel einfacher und da lässt sich auch alles im vs designen
    Gruß Hannes

Facebook
Telefonspende