Odwołanie do obiektu nie zostało ustawione

0

Witam.

Mam powyższy problem

    Public Class __Linia
        Public Nazwa As String
        Public Kod As String
        Public Jm As String
        Public Vat As String
        Public Asortyment As String
        Public Sww As String
        Public PKWiU As String
        Public Ilosc As String
        Public Cena As String
        Public Wartosc As String
        Public IleWOpak As String
        Public CenaSp As String
    End Class
    
    Dim _Linia(255) As __Linia

    Sub Linijeczka()
         _Linia(255) = New __Linia
         For i = 1 To 5
            Robocze = CalyPlik.ReadLine()
            Rozdzielenie = Robocze.Split(",")
            _Linia(i).Jm = Rozdzielenie(9).Trim(Trimek)

I pojawia mi się problemik związany o nazwie Object reference not set to an instance of an object.

1

Która linia? Nikt nie będzie czytał kodu wiersz po wierszu przecież.

0

na tym **_Linia(i).Jm = Rozdzielenie(9).Trim(Trimek) **

0

Rozdzielenie(9) - jaką masz pewność że elementów jest 9?

0

Splitowanie.
2,1,"ZELALGI",1,0,0,0,0.0000,0.0000,"szt.",3.0000,3.0000,6.3200,7.1400,7.5000,5.0000,21.4200,1.0700,22.4900,18.9600,,
Wiec powinno być = "szt."

0

Nie istnieje __Linia[i].
Nie znam dokładnie tego moim zdaniem najgorszego z najgorszych języka, ale chyba zamiast _Linia(255) = New __Linia powinieneś linijkę niżej (w pętli) dać _Linia(i) = New __Linia.

A przy okazji - "linijeszka", "trimek" - wtf???

0

a który wg @ŁF język programowania jest najgorszy?

0

Idzie. ale tylko jedna pętle

            _Linia(i).Jm = Rozdzielenie(9).Trim(Trimek)
            MsgBox(_Linia(i).Jm & "   .   " & i)
            _Linia(i) = New __Linia

przy drugiej linijce nadal jest ten sam błąd.

0

napisałem LINIJKĘ NIŻEJ, a nie trzy. Odwołujesz się do pola obiektu, który nie istnieje. Musisz go najpierw utworzyć.

1 użytkowników online, w tym zalogowanych: 0, gości: 1