[VB.NET] Variabile oggetto o variabile del blocco With non impostata.

[FinalFantasy]

Variabile oggetto o variabile del blocco With non impostata.

da cosa è dato questo errore e come si può risolvere? Sto diventando pazzo

grazie e auguri a tutti

[xam85it]

quota il codice!!

[FinalFantasy]

Vabbè...ma è lunghetto

    Public Function GetPreventivo() As Object
        Dim j As Integer
        Dim Prev As Object
        Dim totitems As Integer = lsvpreventivo.Items.Count    'conta il numero degli elementi presenti nel preventivo
        'Dim prev As New Preventivo1_0(totitems)                    

        Select Case Versione
            Case "1.0" : Prev = New Preventivo1_0(totitems) 'crea un oggetto di tipo preventivo
        End Select

        For j = UBound(Versioni) To 0 Step -1
            Select Case Versioni(j)
                Case "1.0"
                    'crea un oggetto di tipo fattura per le voci del preventivo
                    Dim i As Integer
                    Dim items(totitems) As Fattura

                    For i = 0 To (totitems - 1)
                        items(i) = New Fattura  'creo una nuova istanza di fattura
                        items(i).Qta = lsvpreventivo.Items(i).SubItems(0).Text 'assegno 
                        items(i).Desc = lsvpreventivo.Items(i).SubItems(1).Text ' vari dati
                        items(i).Prezzo = lsvpreventivo.Items(i).SubItems(2).Text '  al preventivo
                    Next
                    Prev.Items = items 'inseriso l'insieme all'oggetto 
                    Prev.Surname = txtcognome.Text             'inserisco i dati anagrafici
                    Prev.Name = txtnome.Text                   '
                    Prev.Address = txtindirizzo.Text           'al preventivo
                    Prev.City = txtcitta.Text                  '
                    Prev.PI_CF = txtcf.Text                    'e aggiungo
                    Prev.Iva = Val(txtiva.Text)                '    l'iva

            End Select
        Next
        Return Prev
    End Function

l'eccezione è generata nel pezzo di codice in grassetto.

[cassano]

Prev.Items = items 'inseriso l'insieme all'oggetto


items è una matrice mentre prev è semplicemente una variabile object e non una matrice prova cosi

Dim Prev() As Object

[FinalFantasy]

nn credo che sia questo il problema.
Questo problema avviene quando ho apro un progetto e lo risalvo...Quando ne creo uno e lo salvo questo problema nn mi spunta...

[xam85it]

Originariamente inviato da FinalFantasy
Vabbè...ma è lunghetto

    Public Function GetPreventivo() As Object
        Dim j As Integer
        Dim Prev As Object
        Dim totitems As Integer = lsvpreventivo.Items.Count    'conta il numero degli elementi presenti nel preventivo
        'Dim prev As New Preventivo1_0(totitems)                    

        Select Case Versione
            Case "1.0" : Prev = New Preventivo1_0(totitems) 'crea un oggetto di tipo preventivo
        End Select

        For j = UBound(Versioni) To 0 Step -1
            Select Case Versioni(j)
                Case "1.0"
                    'crea un oggetto di tipo fattura per le voci del preventivo
                    Dim i As Integer
                    Dim items(totitems) As Fattura

                    For i = 0 To (totitems - 1)
                        items(i) = New Fattura  'creo una nuova istanza di fattura
                        items(i).Qta = lsvpreventivo.Items(i).SubItems(0).Text 'assegno 
                        items(i).Desc = lsvpreventivo.Items(i).SubItems(1).Text ' vari dati
                        items(i).Prezzo = lsvpreventivo.Items(i).SubItems(2).Text '  al preventivo
                    Next
                    Prev.Items = items 'inseriso l'insieme all'oggetto 
                    Prev.Surname = txtcognome.Text             'inserisco i dati anagrafici
                    Prev.Name = txtnome.Text                   '
                    Prev.Address = txtindirizzo.Text           'al preventivo
                    Prev.City = txtcitta.Text                  '
                    Prev.PI_CF = txtcf.Text                    'e aggiungo
                    Prev.Iva = Val(txtiva.Text)                '    l'iva

            End Select
        Next
        Return Prev
    End Function

l'eccezione è generata nel pezzo di codice in grassetto.

prova a decommentare!!!

[FinalFantasy]

naaa..quello è un altro esperimento...cmq ho risolto oggi pomeriggio...
La parte che mi hai detto di decommentare la vedi + in avanti nel prima switch case...

Ho sbagliato nel mettere Versione anziché di LastVersion

[power.mobile]

il problema è semplicemente che non inizializzi la variabile object, hai provato a controllare passo passo se viene eseguita la riga:

Case "1.0" : Prev = New Preventivo1_0(totitems) 'crea un oggetto di tipo preventivo

perchè se questa non viene eseguita hai la NullReferenceException.

[FinalFantasy]

leggi il mio ultimo post