[VB.NET]: Valore indice non valido accedendo a righe di un DataSet

[roky]

Ciao a tutti,c'è qualcuno che puo' dirmi perchè selezionando una prima volta dentro una lista tutto funziona bene ma se clicco di nuovo mi da errore il programma?. Il codice che ho scritto è il seguente:

Public idItem As String

Private Sub lista_SelectedIndexChanged_UsingItems(ByVal sender As Object, ByVal e As System.EventArgs) Handles lista.SelectedIndexChanged

Dim pippo As String = lista.SelectedItems.Item(0).SubItems(1).Text

idItem = pippo
modificare()
End Sub

Il programma di blocca dicendo:

InvalidArgument=Valore di '0' non valido per 'index'.
Nome parametro: index

Mi viene segnalata errore alla riga :
Dim pippo As String = lista.SelectedItems.Item(0).SubItems(1).Text

Grazie in anticipo.

[MItaly]

Probabilmente la chiave di tutto è in quella procedura "modificare"; postane il codice.

[alka]

Originariamente inviato da roky
Ciao a tutti,c'è qualcuno che puo' dirmi perchè selezionando una prima volta dentro una lista tutto funziona bene ma se clicco di nuovo mi da errore il programma?. Il codice che ho scritto è il seguente [...]

Ciao e benvenuto nel forum di Programmazione.

Ti segnalo da subito la lettura del nostro Regolamento che contiene tutte le norme da seguire per partecipare correttamente a quest'area del forum.

In modo particolare, devi sempre indicare il linguaggio utilizzato nel titolo della discussione, indicando la versione nel caso in cui ne esistesse più di una, assieme ad una sintesi breve ma significativa ed esplicativa del problema.

Nel tuo caso, pare trattarsi di Visual Basic, per cui esiste un forum apposito; indica la versione del linguaggio così posso correggere il titolo e spostare la discussione nell'area appropriata.

Detto questo, ciao e...buon forum!

[MItaly]

Dal codice direi VB.NET.

[roky]

Scusate se sbaglio ma piano piano imparero' come si impostano i problemi.
Il linguaggio è VB.net 2005 ed il codice "Modificare" è il seguente:

Private Sub modificare()

cn = New OleDb.OleDbConnection(stringaCONN)
cn.Open()

Dim stringaSQL As String = "SELECT * FROM tab_pagamenti WHERE id_pagamenti=" & idItem
Dim stringaSQL_app As String = ""
Try
ds = New DataSet()
da = New OleDb.OleDbDataAdapter(stringaSQL, cn)
da.Fill(ds, "pagamenti")

If ds.Tables("pagamenti").Columns.Count > 0 Then
TextBox12.Text = ds.Tables("pagamenti").Rows(0).Item("numeroDOC")
TextBox11.Text = ds.Tables("pagamenti").Rows(0).Item("intestatario" )
TextBox10.Text = ds.Tables("pagamenti").Rows(0).Item("data_scadenza ")
TextBox9.Text = ds.Tables("pagamenti").Rows(0).Item("data_pagament o")
TextBox8.Text = ds.Tables("pagamenti").Rows(0).Item("importo")
TextBox7.Text = ds.Tables("pagamenti").Rows(0).Item("note")
txtFattura.Text = ds.Tables("pagamenti").Rows(0).Item("numeroDOC")
txtEnte.Text = ds.Tables("pagamenti").Rows(0).Item("intestatario" )
txtScadenza.Text = ds.Tables("pagamenti").Rows(0).Item("data_scadenza ")
txtPagamento.Text = ds.Tables("pagamenti").Rows(0).Item("data_pagament o")
txtimporto.Text = ds.Tables("pagamenti").Rows(0).Item("importo")
txtDescrizione.Text = ds.Tables("pagamenti").Rows(0).Item("note")
End If

Catch ex As Exception
MessageBox.Show("ERRORE MODIFICA FATTURA ," & ex.Message)
Finally

cn.Close()
cn.Dispose()
End Try



End Sub

[alka]

Ho spostato la discussione nel forum giusto e ho corretto il titolo per rispecchiare sia il linguaggio sia la natura vera e propria del problema riscontrato.

Ciao!

[roky]

Grazie,spero inoltre di avere quest'aiuto.

[MItaly]

Togli il blocco try ed individua la linea precisa in cui ti dà l'errore, e soprattutto indica QUALE eccezione esattamente viene sollevata.

[roky]

Ciao, la linea in cui mida l'errore è:
Dim pippo As String = lista.SelectedItems.Item(0).SubItems(1).Text
me la da gialla da "pippo in poi".

L'eccezione sollevata mi sembra di capire che è :

" ArgumentOutOfRangeException non è stata gestita".

Spero di essere stato chiaro.
Grazie.

[MItaly]

Sembrerebbe che non sia selezionato alcun elemento nella lista.