"For Each" Fehler

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

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    "For Each" Fehler

    Hallo habe seit kurzem einen kuriosen Fehler, den ich mir nicht erklären kann. Es wird nicht Parallel darauf zugegriffen.

    Hier mal der Code.

    VB.NET-Quellcode

    1. Dim workinglist As List(Of Integer) = CalculationIDList 'Funktion die eine Liste mit Integern wiedergibt
    3. For Each CalculationID As Integer In workinglist
    5. 'Mach etwas
    7. Next


    Jetzt sagt mir VSStudio im Debug Modus ab und anmal bei der For Each Schleife "Index ausserhalb des Arraybereichs" wie ist das möglich?

    Nein Natürlich verändere ich die workinglist nicht :-).

    Ich Arbeite nur mit den Integer Zahlen, auch ist die Liste kpl. gefüllt, also kein 'Nothing' etc..
    Habe das mit einer Try Catch anweisung abgefangen, finde es aber keine schöne lösung.

    Poste bitte mal den ganzen code. Weil das was du gepostet hast ist an sich ok.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @mrMo Bitte schön :) Der Fehler tritt in der Funktion TradeSettingsTable2 auf. Aufgerufen wird das ganze mit "GetTradeSettingString"

    VB.NET-Quellcode

    1. Public Function GetTradeSettingString(ByVal Instrument As String, ByVal TradeDirection As String, ByVal SelectedRow As DataRow, Optional ByVal Reload As Boolean = False, Optional ByVal Setting As Boolean = False) As String
    3. If Reload Then
    4. GetDataTable(Tradesetting_Table)
    5. End If
    7. Dim ReturningString As String = "NoInformation"
    9. Select Case Tradesetting_Table
    11. Case 0
    12. ReturningString = TradeSettingsTable1(Instrument, TradeDirection, SelectedRow)
    13. Case 1
    14. ReturningString = TradeSettingsTable2(Instrument, TradeDirection, SelectedRow, Setting)
    15. End Select
    17. Return ReturningString
    19. End Function
    21. Public Function TradeSettingsTable2(ByVal Instrument As String, ByVal TradeDirection As String, ByVal SelectedRow As DataRow, Optional ByVal Setting As Boolean = False) As String
    23. Dim ReturningString As String = "NoInformation"
    25. Dim FoundRow() As DataRow = TradeSettingsTable.Select("Instrument = '" & Instrument & "' AND Active = 'True' AND TradeDirection = '" & TradeDirection & "' AND SubCalculationID = '0'")
    27. Dim CalculationIDList As List(Of Integer) = GetFirstTradeInformation(FoundRow, SelectedRow)
    29. If Not CalculationIDList Is Nothing Then
    31. Dim workinglist As List(Of Integer) = CalculationIDList
    33. Try
    35. For Each CalculationID As Integer In workinglist
    37. If Setting = False Then
    39. Dim SecondFoundRow() As DataRow = TradeSettingsTable.Select("Instrument = '" & Instrument & "' AND Active = 'True' AND TradeDirection = '" & TradeDirection & "' AND SubCalculationID = '1' AND CalculationID = '" & CalculationID & "'")
    40. ReturningString = GetTradeInformation(SecondFoundRow, SelectedRow)
    42. Else
    44. ReturningString = "Trade"
    46. End If
    48. Next
    50. Catch ex As Exception
    51. Debug.Print("Index Ausserhalb des Arraybereichs: " & ReturningString)
    52. End Try
    54. End If
    56. Return ReturningString
    58. End Function
    60. Public Function GetFirstTradeInformation(ByVal FoundRows() As DataRow, ByVal SelectedRow As DataRow) As List(Of Integer)
    62. Dim ReturningIntegerList As List(Of Integer)
    64. Dim po As New ParallelOptions()
    66. Parallel.ForEach(FoundRows, po, Sub(SettingsRow)
    68. If IsDBNull(SettingsRow("Volume_1")) = False And IsDBNull(SettingsRow("Volume_2")) = False Then
    70. Dim Boolean_1 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_1")), CInt(SettingsRow("Symbol_1")), CStr(SettingsRow("ColumName")), SelectedRow)
    71. Dim Boolean_2 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_2")), CInt(SettingsRow("Symbol_2")), CStr(SettingsRow("ColumName")), SelectedRow)
    73. If Boolean_1 And Boolean_2 Then
    74. ReturningIntegerList = AddNewInteger(CInt(SettingsRow("CalculationID")), ReturningIntegerList)
    75. po.CancellationToken.ThrowIfCancellationRequested()
    76. End If
    78. ElseIf IsDBNull(SettingsRow("Volume_1")) = False Then
    80. Dim Boolean_1 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_1")), CInt(SettingsRow("Symbol_1")), CStr(SettingsRow("ColumName")), SelectedRow)
    82. If Boolean_1 Then
    83. ReturningIntegerList = AddNewInteger(CInt(SettingsRow("CalculationID")), ReturningIntegerList)
    84. po.CancellationToken.ThrowIfCancellationRequested()
    85. End If
    87. ElseIf IsDBNull(SettingsRow("Volume_2")) = False Then
    89. Dim Boolean_1 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_2")), CInt(SettingsRow("Symbol_2")), CStr(SettingsRow("ColumName")), SelectedRow)
    91. If Boolean_1 Then
    92. ReturningIntegerList = AddNewInteger(CInt(SettingsRow("CalculationID")), ReturningIntegerList)
    93. po.CancellationToken.ThrowIfCancellationRequested()
    94. End If
    96. End If
    98. End Sub)
    100. Return ReturningIntegerList
    102. End Function

    @mrMo Geschätzt diese:

    Rattenfänger schrieb:

    VB.NET-Quellcode

    1. ReturningString = GetTradeInformation(SecondFoundRow, SelectedRow)
    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!

    @ErfinderDesRades Habich glatt ignoriert. :D
    Mein Tipp bleibt trotzdem bestehen.
    @Rattenfänger Wie wärs mit Haltepunkt und Debuggen?
    Debuggen, Fehler finden und beseitigen
    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!

    In zeile 48. Genau bei next.

    @Fakiz das könnte sein. Habe ich ja noch gar nicht dran gedacht ;-)! Werde dort gleich mal Debuggen.

    @RodFromGermany das debuggen ist gar nicht so einfach, bis der Fehler auftritt, muss das Programm 3std. durchlaufen und dann ist noch nicht mal sicher ob der Fehler auftritt.

    Rattenfänger schrieb:

    bis der Fehler auftritt, muss das Programm 3std. durchlaufen
    Ist doch einfach: Warte, bis es knallt.
    Allerdings solltest Du das Try / Catch rausnehmen, dann knallt es genau da, wo der Fehler auftaucht.
    Wenn mit Try / Catch, setze in den Catch-Zweig den Haltepunkt, um den StackTrace auslesen zu können.
    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!

    Jetzt haben wir zwar viel Code. Aber nicht die Sub GetTradeInformation (es gibt den Code für GetFirstTradeInformation, aber nicht für GetTradeInformation), die offensichtlich Probleme macht. Spekulatiusbacken ist angesagt :(
    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 Bitte schön, einmal die GeTradeInformation, ist eigentlich das selbe wie GetFirstTradeInformation :-). Gibt hier aber einen String zurück.
    @RodFromGermany das ist genau da wo ich gesagt habe, zeile 48 next. So unglaublich es ist.

    VB.NET-Quellcode

    1. Public Function GetTradeInformation(ByVal FoundRows() As DataRow, ByVal SelectedRow As DataRow) As String
    3. Dim ReturningString As String = "NoInformation"
    5. Dim po As New ParallelOptions()
    7. System.Threading.Tasks.Parallel.ForEach(FoundRows, po, Sub(SettingsRow)
    9. If IsDBNull(SettingsRow("Volume_1")) = False And IsDBNull(SettingsRow("Volume_2")) = False Then
    11. Dim Boolean_1 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_1")), CInt(SettingsRow("Symbol_1")), CStr(SettingsRow("ColumName")), SelectedRow)
    12. Dim Boolean_2 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_2")), CInt(SettingsRow("Symbol_2")), CStr(SettingsRow("ColumName")), SelectedRow)
    14. If Boolean_1 And Boolean_2 Then
    15. ReturningString = CStr(SettingsRow("ReturningValue"))
    16. po.CancellationToken.ThrowIfCancellationRequested()
    17. End If
    19. ElseIf IsDBNull(SettingsRow("Volume_1")) = False Then
    21. Dim Boolean_1 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_1")), CInt(SettingsRow("Symbol_1")), CStr(SettingsRow("ColumName")), SelectedRow)
    23. If Boolean_1 Then
    24. ReturningString = CStr(SettingsRow("ReturningValue"))
    25. po.CancellationToken.ThrowIfCancellationRequested()
    26. End If
    28. ElseIf IsDBNull(SettingsRow("Volume_2")) = False Then
    30. Dim Boolean_1 As Boolean = CheckVolume(CDbl(SettingsRow("Volume_2")), CInt(SettingsRow("Symbol_2")), CStr(SettingsRow("ColumName")), SelectedRow)
    32. If Boolean_1 Then
    33. ReturningString = CStr(SettingsRow("ReturningValue"))
    34. po.CancellationToken.ThrowIfCancellationRequested()
    35. End If
    37. End If
    39. End Sub)
    41. Return ReturningString
    43. End Function

    Was ich nicht verstehe: Was hat eine IndexOutOfRange-Exception mit ner ForEach-Loop zu tun? Wenn die Auflistung geändert wird, kommt
    System.InvalidOperationException: "Die Sammlung wurde geändert. Der Enumerationsvorgang kann möglicherweise nicht ausgeführt werden."
    Spekulatius: Wir suchen immer noch an der falschen Stelle.
    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 Die sammlung wurde aber nicht geändert. Das verstehe ich ja auch nicht. Jetzt läuft das Programm ohne Probleme seit ca. 5std(ca. 6Mil. Rows Abgearbeitet). Und es ist wirklich die Fehlermeldung "Index ausserhalb der Arraybereichs". Darf ja bei einer For Each gar nicht passieren!!!

    Rattenfänger schrieb:

    Darf ja bei einer For Each gar nicht passieren!!!
    Kann es sein, dass sich in der Datenbank was verändert hat?
    Ich hab mal was konstruiert, da kommt eine ArgumentOutOfRangeException:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private MyList As New List(Of Integer)
    3. Private MyDict As New List(Of Integer)
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. For i = 0 To 10
    7. Me.MyList.Add(i)
    8. Me.MyDict.Add(i)
    9. Next
    10. End Sub
    12. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    13. For Each i In MyList
    14. If i = 5 Then
    15. Me.MyDict.Remove(i)
    16. End If
    17. Me.ListBox1.Items.Add(Me.MyDict(i))
    18. Next
    19. End Sub
    20. End Class
    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!

    wie ich in post#8 bereits ausführe: Du hast die "Fehlermeldung" selbst verfasst.

    Das ist, was gar nicht passieren darf: Einen TryCatch machen, und darin eine Fehlermeldung ausgeben, die überhaupt nicht stimmt.
    TryCatch ist ein heißes Eisen

    Immerhin scheints in dem Proggi um Geld zu gehen.
    Und da eine Exception einfach zu catchen, und das Proggi in möglicherweise instabilen Zustand, oder mit falschen Daten weiter laufenzulassen...

    (oder hast du das bereits behoben - nur nicht gesagt?)

    @RodFromGermany Der Code wird erst ausgeführt, wenn alle Änderungen an der Tabelle gemacht wurden. Ich werde es nochmal als Bild senden, wenn es auftritt. Aber ich glaube @Fakiz war schon auf der richtigen Spur, den in der Funktion AddNewInteger hatte ich schon mal einen Fehler, den ich auch mit einem Try Catch abgefangen habe. Und hier sieht man mal wieder, das Ihr wie immer recht hattet, kein Try Catch nutzen :-), den der Fehler wird nur verschoben. :thumbup:

    @ErfinderDesRades das habe ich nur für mich reingeschrieben um zu sehen wie oft er vorkommt und wie gesagt er tritt bei (1,1 Millionen * 3400) zeilen einmal auf. Nur dieses eine mal hat mir die berechnungen von 3std. zerschossen und das ist nervig. Nur möchte ich auch wissen, was da schief läuft, um erstens diesen fehler zu korigieren und natürlich Ihn nicht zu wiederholen.

    Nein hier geht es noch nicht um Geld, das ist nur das Settings Tool, was mir die einstellungen berechnet.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Rattenfänger“ ()

Facebook
Telefonspende