Originariamente inviato da Magicolotto
OK RISOLTO HO FATTO COSI

[CODE]Dim DIST(10)
DIST(1) = DIST1
DIST(2) = DIST2
DIST(3) = DIST3
DIST(4) = DIST4
DIST(5) = DIST5
DIST(6) = DIST6
DIST(7) = DIST7
DIST(8) = DIST8
DIST(9) = DIST9
DIST(10) = DIST10
Anche in questo caso, se i dati provengono da un recordset, allora tutte le variabili

DIST1 ... DIST2 ....

non servono perche' puoi leggere direttamente in DIST(y)

Dim DIST(1 To 10) As Integer
Perche' hai eliminato questa dichiarazione ... e' utile inserirla e prima di utilizzare un qualsiasi elemento del vettore ...

DIST(Y) = DIST(Y)
Questa istruzione, se la leggi bene, non ha alcun senso ...
Stai dicendo di conservare in un elemento del vettore il valore dello stesso elemento ... ovvero non stai facendo nulla ...
Se hai compreso il fatto che non ha alcuna utilità, capirai bene che devi eliminare questa istruzione ...

nella textboxt Prv mi risulta scritto y
quando avvio l'elaborazione mi risulta scritto la 5° DIST(5)
PERO' non mi scrivi la DIST(1) CH è ANCHE UGUALE A 30....
PERCHE????
Cosa è un ciclo? E' la ripetizione di un gruppo di istruzioni.
Quindi il confronto viene effettuato sia per l'elemento 1 sia per l'elemento 5 ... ma nella textbox puoi visualizzare *un solo* valore e quindi viene visualizzato l'ultimo.

Puoi visualizzare nella textbox più valori ma la scelta migliore è utilizzare un altro controllo più adatto, ad esempio una listbox.