Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
19/06/09 13:30
sergio58
Salve a tutti , sono alle prese con un errore che non mi dà pace, malgrado tutti i tentativi fatti non sono venuto a capo di nulla.
Ho una semplice matrice ad una dimensione , quando leggo i valori ,lege tutto fino al quarto cliente, al quinto mi ritorna l'errore indice oltre i limiti della matrice, sull'indice zero. Vi posto il codice:
        decAcquiMensili(0) = AnagCliente.AcquiMensili(0)
        decAcquiMensili(1) = AnagCliente.AcquiMensili(1)
        decAcquiMensili(2) = AnagCliente.AcquiMensili(2)
        decAcquiMensili(3) = AnagCliente.AcquiMensili(3)
        decAcquiMensili(4) = AnagCliente.AcquiMensili(4)
        decAcquiMensili(5) = AnagCliente.AcquiMensili(5)
        decAcquiMensili(6) = AnagCliente.AcquiMensili(6)
        decAcquiMensili(7) = AnagCliente.AcquiMensili(7)
        decAcquiMensili(8) = AnagCliente.AcquiMensili(8)
        decAcquiMensili(9) = AnagCliente.AcquiMensili(9)
        decAcquiMensili(10) = AnagCliente.AcquiMensili(10)
        decAcquiMensili(11) = AnagCliente.AcquiMensili(11)


la struttura è dichiarata così: Dim AnagCliente As New Anagrafica
Prima ho strutturato l'array col metodo structure in un modulo .
structure Anagrafica
Dim AcquiMensili() As Decimal
end structure

Sapete darmi qualche idea ?

Grazie a tutti

Sergio




aaa
20/06/09 8:23
Il Totem
Evidentemente l'array è vuoto: ti sei dimenticato di inizializzarlo e/o riempirlo. Comunque è più veloce fare così:
For i As Int32 = 0 To AnagCliente.AcquiMensili.Length - 1
  decAcquiMensili(i) = AnagCliente.AcquiMensili(i)
Next
aaa
20/06/09 14:08
sergio58
Grazie Totem era proprio per quel motivo.

Ciao sergio
aaa