Datagridview mit Datatable wirft System.IndexOutOfRangeException

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

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von Rizzle.

    Datagridview mit Datatable wirft System.IndexOutOfRangeException

    Moin,

    ich habe ein Datagridview das auflaufende Fehler anzeigen soll und dazu habe ich sie mit einer Datatable verbunden in der ich die Datanaktualisiere bzw. hinzufüge und lösche.
    In einem Thread wird im hintergrund die ganze Zeit gelesen und der aktualisiert die Datatable.

    Ich habe mir jetzt ein Textprogramm geschrieben, um mein Programm kaputt zu bekommen und hab es leider geschafft. Ab und zu wird die Meldung "System.IndexOutOfRangeException" generiert.

    So im ganzen:

    2022-08-25 17:18:11,503 [1] ERROR QSorting - System.IndexOutOfRangeException: Der Index 15 hat keinen Wert.
    bei System.Windows.Forms.CurrencyManager.get_Item(Int32 index)
    bei System.Windows.Forms.DataGridView.DataGridViewDataConnection.GetError(Int32 rowIndex) -- System.Windows.Forms.DataGridView.OnDataErrorInternal > System.Windows.Forms.DataGridView.OnDataError > QSorting.Alarmbox.Alarmbox_DataError

    Da ich zuerst der Meinung war, dass es am Hintergrundthread liegt, habe ich mehere Syncmethoden eingebaut, die alle keinen Erfolg hatten. Es kann meines Erachtens auch nicht schuld sein, weil nur der Thread schreiben schreibt und löscht, kein 2. oder 3.

    So habe ich meine Datagridview erstellt:

    VB.NET-Quellcode

    1. Public Class Alarmbox
    2. Inherits DataGridView
    4. Sub New() 'ByRef Alarmtable As Alarmboxdatatable)
    5. Try
    6. 'Nicht zur Designzeit ausfuehren:
    7. If System.ComponentModel.LicenseManager.UsageMode = System.ComponentModel.LicenseUsageMode.Designtime Then Return
    9. ' Dieser Aufruf ist für den Designer erforderlich.
    10. InitializeComponent()
    12. 'Werte aus der Einstellung uebernehmen
    13. Me.Columns.Clear()
    14. DataGridSettings()
    16. Me.DoubleBuffered = True
    18. RemoveHandler MyBase.Resize, AddressOf Alarmbox_Resize
    19. AddHandler MyBase.Resize, AddressOf Alarmbox_Resize
    20. Catch ex As Exception
    21. Log.Error(ex)
    22. End Try
    23. End Sub
    25. Private Sub DataGridSettings()
    26. Try
    28. 'Einstellung vom Datagrid:
    29. Me.BackgroundColor = Color.Gray
    31. 'Set the selection background color for all the cells.
    32. Me.DefaultCellStyle.SelectionBackColor = Color.Red
    33. Me.DefaultCellStyle.SelectionForeColor = Color.White
    34. Me.RowsDefaultCellStyle.BackColor = Color.Red
    35. Me.RowsDefaultCellStyle.ForeColor = Color.White
    36. 'Alternating:
    37. 'Me.AlternatingRowsDefaultCellStyle.BackColor = Color.DarkGray
    39. Me.AllowUserToAddRows = False
    40. Me.AllowUserToDeleteRows = False
    41. Me.AllowUserToOrderColumns = True
    42. Me.ReadOnly = True
    43. Me.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    44. Me.MultiSelect = False
    45. Me.RowHeadersVisible = False
    47. Me.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
    48. Me.AllowUserToResizeColumns = False
    49. Me.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    50. Me.AllowUserToResizeRows = False
    51. Me.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
    52. Catch ex As Exception
    53. Log.Error(ex)
    54. End Try
    55. End Sub
    57. Private Sub Alarmbox_Resize(sender As Object, e As EventArgs) 'Handles MyBase.Resize
    58. Try
    59. ResizeColumns()
    60. Catch ex As Exception
    61. Log.Error(ex)
    62. End Try
    63. End Sub
    65. Public Sub ResizeColumns()
    66. Try
    68. If Me IsNot Nothing Then
    69. If Me.InvokeRequired Then
    70. Return
    71. End If
    73. If Me.Columns.Count < 3 Then Return
    74. Dim Gridwidth = Me.Width
    75. Me.Columns(0).Width = CInt(Gridwidth * 0.2) - 7
    76. Me.Columns(1).Width = CInt(Gridwidth * 0.2) - 7
    77. Me.Columns(2).Width = CInt(Gridwidth * 0.6) - 7
    78. Me.VerticalScrollBar.Visible = False
    79. Me.Refresh()
    81. End If
    82. Catch ex As Exception
    83. Log.Error(ex)
    84. End Try
    86. End Sub
    88. Private Sub Alarmbox_DataBindingComplete(sender As Object, e As DataGridViewBindingCompleteEventArgs) Handles MyBase.DataBindingComplete
    89. Try
    90. Me.Columns(3).Visible = False
    91. RemoveHandler MyBase.DataBindingComplete, AddressOf Alarmbox_DataBindingComplete
    93. Catch ex As Exception
    94. Log.Error(ex)
    95. Log.Info("Fehler bei Alarmbox_DataBindingComplete")
    96. End Try
    97. End Sub
    99. Private Sub Alarmbox_DataError(ByVal sender As Object, ByVal e As DataGridViewDataErrorEventArgs) Handles Me.DataError
    100. Log.Error(e.Exception)
    101. ShowError(e.Exception)
    102. End Sub
    104. End Class




    Und so habe ich meine Datatable erstellt:


    VB.NET-Quellcode

    1. Public Class Alarmboxdatatable
    2. Inherits DataTable
    3. Private semi As New Semaphore(1, 1)
    4. Private _Alarmbox As Alarmbox
    6. Public Structure _Alarmrow
    7. Dim Datetime As DateTime
    8. Dim Group As String
    9. Dim Alarmtext As String
    10. End Structure
    12. Private _Alarmdic As New Dictionary(Of Integer, _Alarmrow)
    14. Sub New(ByRef Alarmbox As Alarmbox)
    15. Dim Lang As String = My.Settings.Language
    17. If Lang = "en" Then
    18. Me.Columns.Add("Time", GetType(DateTime))
    19. Me.Columns.Add("Group", GetType(String))
    20. Me.Columns.Add("Alarmtext", GetType(String))
    21. Me.Columns.Add("ID", GetType(Integer))
    22. Me.PrimaryKey = New DataColumn() {Me.Columns("ID")}
    24. Else
    25. Me.Columns.Add("Zeit", GetType(DateTime))
    26. Me.Columns.Add("Gruppe", GetType(String))
    27. Me.Columns.Add("Alarmtext", GetType(String))
    28. Me.Columns.Add("ID", GetType(Integer))
    29. Me.PrimaryKey = New DataColumn() {Me.Columns("ID")}
    31. End If
    33. _Alarmbox = Alarmbox
    34. End Sub
    36. 'Public Property Alarmdic As Dictionary(Of Integer, _Alarmrow)
    37. 'Set(value As Dictionary(Of Integer, _Alarmrow))
    38. '_Alarmdic = value
    39. 'End Set
    40. 'Get
    41. 'Return _Alarmdic
    42. 'End Get
    43. 'End Property
    45. <MethodImpl(MethodImplOptions.Synchronized)>
    46. Friend Sub updateAlarmtabe(ID As Integer, Time As DateTime, Group As String, Alarmtext As String, Value As Boolean) ' As Alarmboxdatatable
    47. If _Alarmbox Is Nothing Then Exit Sub
    49. Dim DeliResume As New AlarmResumeDelegate(AddressOf AlarmResume)
    50. Dim DeliSuspent As New AlarmSuspendDelegate(AddressOf AlarmSuspendLayout)
    52. semi.WaitOne()
    53. _Alarmbox.Invoke(DeliSuspent)
    55. Try
    57. If Value Then
    58. If _Alarmdic.ContainsKey(ID) Then
    59. 'nichts
    60. Else
    61. Try
    62. Dim newRow = Me.NewRow
    63. newRow.Item(0) = Time
    64. newRow.Item(1) = Group
    65. newRow.Item(2) = Alarmtext
    66. newRow.Item(3) = ID
    67. Me.Rows.InsertAt(newRow, 0)
    68. _Alarmdic.Add(ID, New _Alarmrow With {.Datetime = Time, .Group = Group, .Alarmtext = Alarmtext})
    70. Catch ex As Exception
    71. Log.Error(ex)
    72. ' ShowError(ex)
    73. End Try
    74. End If
    75. Else
    77. If Not _Alarmdic.ContainsKey(ID) Then
    78. 'nichts
    79. Else
    80. Try
    81. If Me.Rows.Count >= 0 Then
    82. SyncLock Me
    83. _Alarmdic.Remove(ID)
    84. For i = 0 To (Me.Rows.Count - 1)
    85. If CInt(Me.Rows(i)(3)) = ID Then
    86. Try
    87. If Me.Rows.Count >= i AndAlso Me.Rows.Contains(ID) Then Me.Rows.RemoveAt(i)
    88. Catch ex As Exception
    89. Log.Error(ex)
    90. End Try
    91. Exit For
    92. End If
    93. Next
    94. End SyncLock
    95. Else
    96. MessageBox.Show("Row count kleiner gleich null")
    97. End If
    98. Catch ex As Exception
    99. Log.Error(ex)
    100. ' ShowError(ex)
    101. End Try
    102. End If
    103. End If
    105. Catch ex As Exception
    106. Log.Error(ex)
    107. ' ShowError(ex)
    108. Finally
    109. _Alarmbox.Invoke(DeliResume)
    110. semi.Release()
    112. End Try
    114. End Sub
    116. Private Delegate Sub AlarmRefreshDelegate()
    117. Private Sub AlarmRefresh()
    118. _Alarmbox.ResizeColumns()
    119. End Sub
    121. Private Delegate Sub AlarmResumeDelegate()
    122. Private Sub AlarmResume()
    123. _Alarmbox.ResumeLayout()
    124. End Sub
    125. Private Delegate Sub AlarmSuspendDelegate()
    126. Private Sub AlarmSuspendLayout()
    127. _Alarmbox.SuspendLayout()
    128. End Sub
    129. End Class



    In der Datatable benutze ich die Funktion Update, um die Daten hinzuzufügen oder zu entfernen.
    Da der Fehler sporadisch ist, weiß ich nicht mal wie ich den provoziere und wieso er versucht wird.

    Google bringt mich momentan nicht weiter und ansonst läuft das Programm komplett stabil.

    Kann mir einer das Phaenomen erklären oder mir sagen was ich übersehe?
    Ich frage ja extra ab, ob es die Zeile in der Tabelle gibt und trotzdem kommt der Fehler ?(

    Viele Grüße

    @Rizzle Schmeiß zunächst alle Try-Catch-Blöcke raus, Du willst doch die Fehler finden und nicht verstecken.
    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!

    Die habe ich alle reingemacht, weil ich gehofft habe das er was in meine Logdatei schreibt. Bin da außer bei Dateizugriffe sonst kein Fan von.
    Leider kein Erfolg, außer das:

    Das DGV löst ja das Ereignis aus:

    Private Sub Alarmbox_DataError(ByVal sender As Object, ByVal e As DataGridViewDataErrorEventArgs) Handles Me.DataError
    Log.Error(e.Exception)
    ShowError(e.Exception)
    End Sub

    Der Text oben ist aus der Logdatei, also die Exception die sonst geworfen werden würde.

    Rizzle schrieb:

    weil ich gehofft habe das er was in meine Logdatei schreibt.
    Nein.
    Es muss an Ort und Stelle knallen, dann hast Du z.B. auch die Zeile identifiziert und alle Werte, die nicht lokal im Try-Block stehen..
    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!

    Wenn der Compiler sagt, dass es kein Item mit dem Index X gibt, dann ist es so. Das bringt Dir aber nix, solange Du nicht weißt, woher es kommt. Daher solltest Du - wenn man Dich vom Loggen nicht abhalten kann - auch loggen, wodurch da was sortiert wird und wieviele Zeilen das DGV hat und wieviele Einträge zum Fehlerzeitpunkt die DataTable. Asynchron im GUI zu arbeiten ist immer gefährlich fehleranfällig.
    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.

    Die ganze Architektur ist komisch, unüblich aufwändig.
    Am einfachsten wäre ein typDataset, und ein DGV, was daran gebunden wird.
    Ein SpezialDGV namens "Alarmbox" zu basteln, und da iwas mit einem Semi zu veranstalten - ist mir ziemlich undurchsichtig, das.

    Ein Nebenthread könnte Daten einsammeln - irgendwohin, aber nicht in die DataTable im typDataset.
    Alle paar Sekunden (WinForms-Timer-gesteuert) könnte eine Methode die Daten sichten, und inne DataTable einpflegen - das muss im HauptThread geschehen.

    eine ConcurrentQueue ist für sowas gut geeignet: Die ist dafür da, dass ein NebenThread Daten reinschmeisst, und ein HauptThread Daten entnimmt.
    Ist aber ein ziemlich schräger Vogel, so ein ConcurrentQueue.
    Aber immer noch besser als was selbstgebasteltes.

    Moin,

    Also ich lese im Hintergrund eine Steuerung aus und da wäre leider "alle" Paar Sekunden zu langsam. Ich weiß das ich alles aufwendig gestaltet habe, das ist das Problem wenn man soviele Ideen hat.
    Ich bin aber für alle Vorschläge offen, weil ich mit dem Fehler wirklich nicht weiter weiß.

    Also ich erstelle ein TyDataSet mit dem DGV das ich über den Designer so gestalte das es so aussieht wie meine jetzige Alarmanzeige.
    Soweit komme ich mit, deinen letzten Absatz verstehe ich leider nicht richtig, ConcurrentQueue ist mir neu.

    Damit könnte ich die Thread synchronisieren?

    Hallo Rizzle

    Ich hatte vor ein paar Tagen eine ähnliche Fehlermeldung. Ich bin auch daran fast verzweifelt. Ich habe damals einen neuen Datensatz per Code eingefügt. Meine Analyse war, dass das Datagridview sich dann selbständig gemacht hat und einen weiteren Dateinsatz eingefügt hat. Ich habe dann den Datensatz über das Binding eingefügt und mit Cast weiterverarbeitet.

    Anbei der auskommentierte Code, welcher Fehler machte, und der funktionierende. Ich habe mir auch noch überlegt, ob man einfach das Datagridview trennt und wieder neu bindet..

    Hoffe es hilft dir..

    VB.NET-Quellcode

    1. 'Dim Row = ZeiterfassungDataSet.KST_MA.NewKST_MARow
    2. 'Row.MANR = MA_TagRow.MANr
    3. 'Row.datum = MA_TagRow.Datum
    4. 'Row.KST = MA_TagRow.KST
    5. 'Row.Zeit_Min = MA_TagRow.Anwesenheit
    6. 'ZeiterfassungDataSet.KST_MA.AddKST_MARow(Row)
    7. 'Me.KST_MABindingSource.MoveFirst()
    9. KST_MABindingSource.AddNew()
    10. Dim row = DirectCast(DirectCast(Me.KST_MABindingSource.Current, DataRowView).Row, ZeiterfassungDataSet.KST_MARow)
    11. row.MANR = MA_TagRow.MANr
    12. row.datum = MA_TagRow.Datum
    13. row.KST = MA_TagRow.KST
    14. row.Zeit_Min = MA_TagRow.Anwesenheit


    lg Panter

    Rizzle schrieb:

    Soweit komme ich mit, deinen letzten Absatz verstehe ich leider nicht richtig, ConcurrentQueue ist mir neu.

    Damit könnte ich die Thread synchronisieren?
    Dochdoch - verstehst du richtig.

    Dass ConcurrentQueue(Of T) dir neu ist, ist kein ShowStopper - musste halt lernen.
    ConcurrentQueue kannste ganz einfach im ObjectBrowser finden - ich finde, ist eiglich ganz gut selbsterklärend - aber bei Fragen fragen.


    von wegen alle paar Sekunden: kann natürlich auch alle paar zig Millisekunden sein. Aber zu schnell würde ich sowas nicht takten: Threadwechsel sind teuer, und da hat man lieber wenige, in denen jeweils eine grössere Datenmenge in einem Rutsch verarbeitet wird.

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

    Moin Leute,

    Also ich habe jetzt ein TypDataset mit PrimaryKey gemacht und eine ConcurrentQueue (Of T), welche ich im Thread beschreibe.

    Das ist meine Queue:

    VB.NET-Quellcode

    1. Public _AlarmQueue As New Concurrent.ConcurrentQueue(Of _Alarmrow)
    3. Public Structure _Alarmrow
    4. Dim ID As Integer
    5. Dim Datetime As DateTime
    6. Dim Group As String
    7. Dim Alarmtext As String
    8. Dim State As Boolean
    9. End Structure


    Und das ist mein Timer im GUI Thread:

    VB.NET-Quellcode

    1. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    2. For Each Alarmrow As SendRecieve._Alarmrow In Me._SendRecieve._AlarmQueue
    3. With Alarmrow
    5. If .State Then
    6. If Me.Alarme.Alarmtable.Rows.Count > 0 Then
    8. If Not Me.Alarme.Alarmtable.Rows.Contains(.ID) Then
    9. Me.Alarme.Alarmtable.AddAlarmtableRow(.ID, .Datetime, .Group, .Alarmtext)
    10. End If
    11. Else
    12. Me.Alarme.Alarmtable.AddAlarmtableRow(.ID, .Datetime, .Group, .Alarmtext)
    14. End If
    16. Else
    17. For Each Alarm As DataRowView In Me.AlarmtableBindingSource
    18. With CType(Alarm.Row, Alarme.AlarmtableRow)
    19. If .ID = Alarmrow.ID Then
    20. Me.Alarme.Alarmtable.RemoveAlarmtableRow(CType(Alarm.Row, Alarme.AlarmtableRow))
    21. End If
    22. End With
    24. Next
    25. End If
    27. End With
    29. Next
    30. End Sub


    Ich verstehe das richtig, dass wenn ich ein Element gelesen habe, dass es aus der Queue gelöscht wird oder?
    Ich glaube nämlich sie wird immer größer und die Gui beginnt dann zu ruckeln?


    Hinzufügen tue ich die daten (vereinfach dargestellt) im Hintergrundthread so:

    VB.NET-Quellcode

    1. _AlarmQueue.Enqueue(NewAlarmrow(-1, Date.Now, "PLC", "Read Error", False))
    4. Private Function NewAlarmrow(ID As Integer, Datetime As Date, Grouptext As String, Alarmtext As String, state As Boolean) As _Alarmrow
    5. With NewAlarmrow
    6. .ID = ID
    7. .Datetime = Datetime
    8. .Group = Grouptext
    9. .Alarmtext = Alarmtext
    10. .State = state
    11. End With
    12. End Function



    Hab ich irgendwas nicht beachtet? Sonst lauf ich jetzt ins Labor und lass das über nacht laufen.




    Edit: Ich habe die Timerfunktion so angepasst:
    Weil anscheinend mit Linq die Elemente nicht gelöscht werden, habe ich jetzt ConcurrentQueue (Of T).TryDequeue verwendet

    VB.NET-Quellcode

    1. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    2. Dim Counter As Integer = Me._SendRecieve._AlarmQueue.Count
    4. For i = 0 To Counter
    5. Dim Alarmrow As SendRecieve._Alarmrow
    6. Me._SendRecieve._AlarmQueue.TryDequeue(Alarmrow)
    8. With Alarmrow
    10. If .State Then
    11. If Me.Alarme.Alarmtable.Rows.Count > 0 Then
    13. If Not Me.Alarme.Alarmtable.Rows.Contains(.ID) Then
    14. Me.Alarme.Alarmtable.AddAlarmtableRow(.ID, .Datetime, .Group, .Alarmtext)
    15. End If
    16. Else
    17. Me.Alarme.Alarmtable.AddAlarmtableRow(.ID, .Datetime, .Group, .Alarmtext)
    19. End If
    21. Else
    22. For Each Alarm As DataRowView In Me.AlarmtableBindingSource
    23. With CType(Alarm.Row, Alarme.AlarmtableRow)
    24. If .ID = Alarmrow.ID Then
    25. Me.Alarme.Alarmtable.RemoveAlarmtableRow(CType(Alarm.Row, Alarme.AlarmtableRow))
    26. End If
    27. End With
    29. Next
    30. End If
    32. End With
    33. Next
    34. End Sub



    Und noch eine Frage, gibt es einen Trick, dass er die neue Zeile oben ins Datatable schreibt, also so das sie oben im Datagridview angezeigt wird?

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Rizzle“ ()

    zunächstmal dieses:

    Rizzle schrieb:

    Weil anscheinend mit Linq die Elemente nicht gelöscht werden, habe ich jetzt ConcurrentQueue (Of T).TryDequeue verwendet
    Ja, bei einer Queue ist das so: Enqueue(element) - element hineintun, DeQueue() - element herausnehmen.
    For Each geht die Elemente durch, entnimmt aber keines.

    Mal Vereinfachung:

    VB.NET-Quellcode

    1. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    2. Dim Alarmrow As _Alarmrow
    3. While Me._AlarmQueue.TryDequeue(Alarmrow)
    4. With Alarmrow
    5. Dim rw = Me.Alarme.Alarmtable.FindByID(.ID)
    6. If .State Then
    7. rw Is Nothing Then
    8. Me.Alarme.Alarmtable.AddAlarmtableRow(.ID, .Datetime, .Group, .Alarmtext)
    9. End If
    10. Else
    11. If rw IsNot Nothing Then Me.Alarme.Alarmtable.RemoveAlarmtableRow(rw)
    12. End If
    13. End With
    14. End While
    15. End Sub
    Ist wahrscheinlich nicht fehlerfrei, weil ich hab ja nicht dein Dataset, und kann hier nix testen.
    Ansonsten ist deine Benamung sehr unglücklich. "Row" würde ich nur DataRows benennen - nicht iwelche Datenstrukturen.
    Nenn es doch AlarmItem.
    Ich würde da auch eine Class für nehmen - Structures verhalten sich oft überraschend für die, die sich nicht gut damit auskennen - bzw. es sollte schon einen guten architektonischen Grund geben, eine Structure zu wählen statt einer Class.
    Nochmal mit Umbenennung:

    VB.NET-Quellcode

    1. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    2. Dim itm As AlarmItem
    3. While Me._AlarmQueue.TryDequeue(itm)
    4. With itm
    5. Dim rw = Me.Alarme.Alarmtable.FindByID(.ID)
    6. If .State Then
    7. If rw Is Nothing Then
    8. Me.Alarme.Alarmtable.AddAlarmtableRow(.ID, .Datetime, .Group, .Alarmtext)
    9. End If
    10. Else
    11. If rw IsNot Nothing Then Me.Alarme.Alarmtable.RemoveAlarmtableRow(rw)
    12. End If
    13. End With
    14. End While
    15. End Sub
    Jetzt ist AlarmItem klar zu unterscheiden von AlarmRow. Vorher war das extrem leicht durcheinanderzukriegen, fandich.
    Komischerweise heisst deine AlarmRow tatsächlich AlarmTableRow - auch bisserl überkandidelt - findste nicht?
    Abhilfe wäre, die AlarmTable einfach Alarm zu benennen - dasses eine DataTable ist weiss man sowieso, weil in einem Dataset ist kaum was anderes drin als DataTables.
    Hier habich eine 3-teilige Tutorial-Reihe verzapft zum Thema typDataset: codeproject.com/Articles/10309…l-Datamodel-for-Beginners
    Da verbreiter ich mich glaub in Teil2 auch über benamungs-Empfehlungen.

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

    ErfinderDesRades schrieb:


    Ich
    würde da auch eine Class für nehmen - Structures verhalten sich oft
    überraschend für die, die sich nicht gut damit auskennen - bzw. es
    sollte schon einen guten architektonischen Grund geben, eine Structure
    zu wählen statt einer Class.


    Wieso wäre eine Class
    besser als ein Struct? Es ist für mich einfach nur ein Datentyp, der
    keinen Konstruktor braucht und ich keinen Speicher reservieren muss,
    somit in diesen Fall leichter anwendbar als eine Class, oder wo irre ich
    mich?

    Erstmal Danke für die Hilfe.
    Hab die Datatable jetzt
    in Alarm geändert und auch sonst deine Vorschläge übernommen, mit den
    Namen bin ich leider nicht so konsequent, deinen Artikel hatte ich
    bereits gelesen. Sodass es jetzt soaussieht:

    VB.NET-Quellcode

    1. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    2. Dim itm As SendRecieve._AlarmItem
    3. While Me._SendRecieve._AlarmQueue.TryDequeue(itm)
    4. With itm
    5. Dim rw = Me.Alarme.Alarm.FindByID(.ID)
    6. If .State Then
    7. If rw Is Nothing Then
    8. Me.Alarme.Alarm.AddAlarmRow(.ID, .Datetime, .Group, .Alarmtext)
    9. End If
    10. Else
    11. If rw IsNot Nothing Then Me.Alarme.Alarm.RemoveAlarmRow(rw)
    12. End If
    13. End With
    14. End While
    15. End Sub


    Ich
    habe ein extra Dataset nur dafür Erstellt, finde das gehört zu keinen
    anderen und das war das leichteste, habe ich mal angehängt. Meine
    Version lief jetzt schon über Nacht ohne Fehlermeldungen.

    Ich
    vermisse bei dem Datatable jetzt leider die funktion insert, sodass ich
    die neue Reihe immer oben einfügen kann, gibt es da eine Alternative?
    Bilder

    • Screenshot 2022-08-27 145724.jpg

      49,5 kB, 678×442, 50 mal angesehen

    Rizzle schrieb:

    Es ist für mich einfach nur ein Datentyp, der keinen Konstruktor braucht und ich keinen Speicher reservieren muss, somit in diesen Fall leichter anwendbar als eine Class, oder wo irre ich mich?
    Einen Konstruktor brauchst Du auch bei einer Klasse nicht. Dann konstruiert sich der Compiler selber zur Laufzeit einen.
    Das mit dem Speicher reservieren müsstest Du erklären. Was genau meinst Du damit? Dass Du bei einer Klasseninstanzgenerierung mit New arbeiten musst? Dann richtig. Aber es hat auch einen Nachteil eine Besonderheit, die man bei der Erstellung seiner Programme beachten muss. Eine Structure-Variable kann nie Nothing sein. Es wird immer ein Konstrukt mit Default-Werten in der Variable stecken. Eine Klassentyp-Variable kann Nothing sein, sodass sie auf keine Klasseninstanz verweist. Das kann ein Vorteil bei der Prüfung des Programmverlaufs sein. Oder für manche auch das größte Ärgernis schlechthin.
    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.

    Rizzle schrieb:

    Es ist für mich einfach nur ein Datentyp, der in diesen Fall leichter anwendbar als eine Class, oder wo irre ich mich?
    zunächstmal ist er in diesem Fall überhaupt nicht leichter anwendbar, sondern seine Anwendung ist (in diesem Fall) 100% identisch.
    Ansonsten verhalten sich Structures anders als Classes, können nicht Nothing werden wurde schon gesagt.
    Für Anfänger verheerender ist aber, dass man sie nicht wie Classes an eine Methode geben kann, die einen ihrer Werte ändert.
    probier das hier:

    VB.NET-Quellcode

    1. Public Structure ItemStruct
    2. Public ID As Integer
    3. Public Datetime As DateTime
    4. Public Group As String
    5. Public Alarmtext As String
    6. Public State As Boolean
    7. End Structure
    8. Public Class ItemClass
    9. Public ID As Integer
    10. Public Datetime As DateTime
    11. Public Group As String
    12. Public Alarmtext As String
    13. Public State As Boolean
    14. End Class
    15. Public Sub StructureTest()
    16. Dim itmStruct As ItemStruct = Nothing
    17. ChangeItemStruct(itmStruct)
    18. Debug.Print(itmStruct.Alarmtext)
    19. Dim itmClass = New ItemClass
    20. ChangeItemClass(itmClass)
    21. Debug.Print(itmClass.Alarmtext)
    22. End Sub
    23. Private Sub ChangeItemClass(itm As ItemClass)
    24. itm.Alarmtext = "ChangeItemClass"
    25. End Sub
    26. Private Sub ChangeItemStruct(itm As ItemStruct)
    27. itm.Alarmtext = "ChangeItemStruct"
    28. End Sub
    ChangeItemClass() geht, ChangeItemStruct() nicht.

    Ich bin zu faul, die genauen Hintergründe zu erklären - wenndes wissen willst, lade dir ein gutes Online-Buch runter, von Löffelmann oder von Kühnel/Leibhard. Aber keinesfalls von Theiss - der hat keine Ahnung.
    Da lies dir das Kapitel zu WertTyp/ReferenzTyp durch.
    Kannst auch im Netz herumgoogeln, aber da weiss man nie, an wen man gerät, am Ende landest du bei einer uTube-Koryphäe (dannlieberdoch Theiss).

    Jedenfalls Structures sind fast immer äusserst primitive Typen. Integer ist zB ein Struct. Oder DateTime.

    Gewöhn dir nicht an, Datentypen als Structure zu entwerfen, und dann auf Schnauze fallen (s. ChangeItemStruct()), wenn du wirklich mit denen arbeiten willst.

    zunächstmal ist er in diesem Fall überhaupt nicht leichter anwendbar, sondern seine Anwendung ist (in diesem Fall) 100% identisch.


    Dann wäre der Anwendungsfall hier ja ok?

    Dass Structs nicht Nothing werden können, habe ich nie beachtet, das man sie nicht als Variable an Methoden geben kann, war mir aber bewusst.
    Eigentlich nutze ich Structes nur mit Dics, da finde ich sie Praktisch.
    Das ist aber noch eine Sache aus dem Studium bei der hardwarenahen Programmierung mit C, da gab es nur Structs und keine Klassen. Das soll aber hier keine Ausrede sein, nehme gerne konstruktive Kritik an.

    Der Link von VaporiZed ist auch interssant.

    Ich habe außerdem die Bücher von Walter Doberenz, sind die auch Murks in euren Augen?

    Rizzle schrieb:

    Dann wäre der Anwendungsfall hier ja ok?
    Also es funktioniert erstmal. Die Gefahr besteht eher darin, dass du Structs öfter mal benutzt, und iwann damit auf Nase fällst. Aber du scheinst dich ja besser auszukennen, als ich dachte.
    Aber deine C-Vorbildung erklärt deine (für uns eigenartige) Annahme, Structs seien einfacher als Classes. In C ist das so, in vb.net nicht.
    Bei Doberenz mussich passen - ich weiss, dass er Autor ist, hab aber nichts von ihm gelesen. Allerdings auch nichts schlechtes von ihm gehört.

    Den Link-Inhalt von VaporiZed habich nicht verstanden. Wortreich wird dort Nothing gebant, aber was das eiglich schlimmes tut, ausser des Autors "only design rule" zu breaken ("bijection" - whatever that means), habich nicht geschnallt.
    Null steht für mich für die Abwesenheit von etwas, und das kommt mir sinnvoll vor.
    Es kommen Leute aussm Krieg, denen fehlt der rechte Arm. Händeschütteln mit dene muss halt fehlschlagen.

    ErfinderDesRades schrieb:

    Händeschütteln mit dene muss halt fehlschlagen.
    In manchen Fällen muss das aber eben nicht bedeuten, dass die App crasht, wenn man es nicht prüft, ob eine rechte Hand da ist, wenn man Hände schütteln will, sondern es bedeutet, dass die andere Hand hergenommen wird oder beim Versuch eben gar nichts passiert. Das Prüfen auf null/Nothing soll damit in vielen Fällen überflüssig werden.
    Disclaimer, falls allein schon die Erwähnung dieses Prinzips von irgendjemandem gleich so gewertet wird, als ob ich absolut davon überzeugt wär und jetzt jeden missionieren will, das in allen Bereichen umzusetzen: Ich habe es als Denkanregung erwähnt.
    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.

    VaporiZed schrieb:

    In manchen Fällen...
    Ja, in manchen Fällen.
    Und wenn man so einen Fall haben will, muss man entsprechend was programmieren.
    Zunächst abermal, und ohne besondere Vorkehrungen, musses crashen - so früh wie möglich, um Folgefehler zu vermeiden, denen ja viel schwieriger auf die Schliche zu kommen ist.

    (Also Denkanregung hat funktioniert - und meine Denke erweist sich halt als höchst unüberzeugt)

Facebook
Telefonspende