Hallo und einen schönen Sonntag.
Deklariere in einer Sub Lokale Variablen.
In einer For Next Schleife erhalte ich die Fehlermeldung Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Spoiler anzeigen
In Zeile 43 kommt der Fehler.
Deklariere in einer Sub Lokale Variablen.
In einer For Next Schleife erhalte ich die Fehlermeldung Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
VB.NET-Quellcode
- Dim Suchzeile() As DataRow = Nothing
- Dim OZ As String = Nothing
- Dim Part As String = Nothing
- Dim Typ As Integer = 0
- Dim Abf As Integer = 0
- Dim MaxPreis As Double = -1000000
- Dim MinPreis As Double = 1000000
- Dim MaxDatum As String = Nothing
- Dim MinDatum As String = Nothing
- Dim MonatsPreis As Double = 0
- Dim Preis As Double = 0
- Dim Lesedatum As Date = Now
- Dim JahrAbf As Integer = 0
- Dim JahrPreis As Double = 0
- Dim JahrMaxPreis As Double = 0
- Dim JahrMaxDatum As String = Nothing
- Dim JahrMinPreis As Double = 0
- Dim JahrMinDatum As String = Nothing
- Dim TagesDatum As Date = Nothing
- Dim TagesBenzin As Double = Nothing
- Dim TagesHeizoel As Double = 0
- Dim TagesPellets As Double = 0
- Dim TagesTTemp As Double = 0
- Dim TagesHTemp As Double = 0
- Dim TagesDTemp As Double = 0
- Dim TagesSoSt As Integer = 0
- Dim TagesNieder As Double = 0
- Dim TagesKBZ As Integer = 0
- Dim HTemp(3) As Double
- Dim TTemp(3) As Double
- Dim DTemp(3) As Double
- Dim SoSt(3) As Integer
- Dim Nieder(3) As Double
- Dim KBZ(3) As Integer
- Dim MaxWert As Double = 0
- Dim MinWert As Double = 0
- For G As Integer = 0 To Daten.Stammbank.Tagesdaten.DataTabelle.Rows.Count - 1
- Suchzeile(0) = Daten.Stammbank.Tagesdaten.DataTabelle.Rows(G)
- OZ = Nothing
- Part = Nothing
- Typ = 0
- Abf = 0
- MaxPreis = -1000000
- MinPreis = 1000000
- MaxDatum = Nothing
- MinDatum = Nothing
- MonatsPreis = 0
- Preis = 0
- Lesedatum = CDate(Suchzeile(0)("Datum"))
In Zeile 43 kommt der Fehler.
Gruß Markus