Stampare array in label

[elisa_rm74]

Ciao a tutti,
non riesco a stampare un array ArrLingue() tutta in una label.
Avevo provato con:
For Each Lingua in ArrLingue
label.text = label.text & Lingua
Next

ma mi dice Riferimento a un oggetto non impostato su un'istanza di oggetto.
:master:

Ma come si fa?

Grazie Elisa

[Legnetto]

Prova così

Dim i as Integer
For i = 0 To UBound(ArrLingue)
   label.text = label.text & ArrLingue(i).ToString
Next i

Ciao

[elisa_rm74]

mi sa che c'è però anche qualche problema quando la carico:

i = 0
While dr.Read
ArrLingue(i) = dr("Lingue")
i = i + 1
End While

ora che ho corretto come mi hai suggerito l'errore si è spostato qui e mi dice:
System.IndexOutOfRangeException: Lingue

[s_dimaio]

Ti da quell'errore perchè il datareader ha più oggetti di quelli contenuti nell'array.

In generale per leggere il contenuto di un array:

Dim i As Object
For Each i In myArr
response.write (i)
Next

[elisa_rm74]

rieccomi! (ieri è andata via la luce e addio internet!)

Cmq...

Ti da quell'errore perchè il datareader ha più oggetti di quelli contenuti nell'array

Cosa intendi? cioè ho capito cosa intendi ma come lo risolvo il problema? come faccio a mettere tutti gli elementi che leggo in una array?

[tekanet]

Prova prima di caricare i dati dal datareader all'array a ridimesionare l'array con un numero di righe pari a quello del datareader.

tK

[elisa_rm74]

l'ho ridimensionata con il numero di record come mi hai suyggeruti tu ma mi da sempre lo stesso errore : System.IndexOutOfRangeException: Lingue

[tekanet]

Uhm.. in che punto esattamente? Eventually, posta tutto il codice coinvolto, dal filling dell'array alla stampa nella label.

tK

[elisa_rm74]

Allora io già ho una funzione che mi restituisce il numero di record della tabella interessata, utilizzata in altre parti del codice. Quindi avevo preso n, il numero di record e avevo dichiatato l'array:
Dim Dim ArrLingue(n) As String

Poi per riempirla avevo fatto così:
i = 0
While dr.Read
ArrLingue(i) = dr("Lingue")
i = i + 1
End While

e per leggerla tutta nella label così:
For i = 0 To UBound(ArrLingue)
lLingueInserite.Text = lLingueInserite.Text & ArrLingue(i).ToString
Next i

Sicuramente ci sono molte cose che nn vanno... :master:

[riccardone]

Originariamente inviato da elisa_rm74
For i = 0 To UBound(ArrLingue)

prova con

For i = 0 To UBound(ArrLingue) - 1