Problema con array ...

[Franz_79]

Ciao a tutti.
Ho un problema di questo tipo sugli array.
Attraverso un ciclo creo un array la cui dimensione è variabile a seconda dei dati inseriti nella tabella che ciclo.

Per esempio l'array Azioni() è uguale a
Azioni(0) = 3
Azioni(1) = 4

e fin qui tutto ok.

Il problema è che dovrei, ricostruire l'array appena fatto in base ad una dimensione fissata in una variabile precedente (nel mio caso 8) mettendo al posto degli indici vuoti degli zero e tenendo presente la posizione dei valori trovati.

Praticamente il risultato finale dovrebbe essere
Azioni(0) = 0
Azioni(1) = 0
Azioni(2) = 3
Azioni(3) = 4
Azioni(4) = 0
Azioni(5) = 0
Azioni(6) = 0
Azioni(7) = 0

Mi sto scervellando da quasi 4 ore ma non trovo la soluzione.
Mi date una mano?

Grazie

[Domenix]

valore = 8
dim myArray()
reDim myArray(valore)
myArray(0) = "pippo"
...
myArray(8) = "pluto"

nuovo = 9
reDim preserve myArray(nuovo)
myArray(9) = "topolino"

[Franz_79]

Scusami tanto ma non ho proprio capito.
Provo a postarti un pò di codice.
Per creare il primo array ho fatto questo codice

		x = 0
		reDim preserve azioniIncomplete(rsAzioni.recordcount)
	
		'INIZIO IL CICLO DELLE AZIONI TROVATE
		Do while not rsAzioni.eof
			
			'POPOLO L'ARRAY
			azioniIncomplete(x) = rsAzioni("IDP0RO")
			x = x+1
	
		'PROCEDO IL CICLO DEI AZIONI TROVATE
		rsAzioni.movenext
		loop

ed il risultato per esempio è
azioniIncomplete(0) = 3
azioniIncomplete(1) = 4

Ora io ho una varabile conta = 8 ... come dovrei fare per ricreare l'array con gli zeri ai posti giusti?

:master:

[Domenix]

Quindi, tu trovi 2 record e popoli l'array su 0 ed 1
da 2 ad 8 devi popolarlo a mano con un ciclo ulteriore che riprende quello precedente partendo da x fino ad 8.

		x = 0
		reDim preserve azioniIncomplete(rsAzioni.recordcount)
	
		'INIZIO IL CICLO DELLE AZIONI TROVATE
		Do while not rsAzioni.eof
			
			'POPOLO L'ARRAY
			azioniIncomplete(x) = rsAzioni("IDP0RO")
			x = x+1
	
		'PROCEDO IL CICLO DEI AZIONI TROVATE
		rsAzioni.movenext
		loop

		for i = x to conta
			azioniIncomplete(i) = 0
			i = i + 1
		next

[Franz_79]

Non proprio ... difficile spiegarsi ...
Il mio primo array dinamico si popola con numeri che prendo dalla tabella del db che NON saranno mai superiori al numero presente nella variabile conta.

Se il mio array ha
valore 3 in posizione 0
valore 4 in posizione 1

il risultato che vorrei ottenere è
valore 0 in posizione 0
valore 0 in posizione 1
valore 3 in posizione 2
valore 4 in posizione 3
...
fino al valore finale di conta

Ovviamente non è chiaro vero?

[Domenix]

No. Non è chiaro...