Error al redimensionar un array

[Isabel]

Hola, tengo el siguiente codigo:
Dim Productos(0,6)

actual = UBound(productos,1)

Productos (actual,0) = RsPresu.Fields.Item("Referencia").Value

actual = UBound(Productos,1)+1

redim preserve Productos(actual,6)

y me dice El subíndice está fuera del intervalo

me podeis ayudar, por favor? :(

[dimoito]

Me parece recordar que no se puede usar el preserve con un array de dos dimensiones :-p :-p

[Korrikalari]

Hola Isabel:

Segun Microsoft:

ReDim releases the existing array and creates a new array with the same rank. The elements of the new array are initialized to the default value for their data type unless you specify Preserve.

If you include the Preserve keyword, Visual Basic copies the elements from the existing array to the new array. When you use Preserve, you can resize only the last dimension of the array , and for every other dimension you must specify the same size it already has in the existing array.

For example, if your array has only one dimension, you can resize that dimension and still preserve the contents of the array, because it is the last and only dimension. However, if your array has two or more dimensions, you can change the size of only the last dimension if you use Preserve .

Lamento darte malas noticias

Korrikalari