Dimension de Array - VB-MUNDO

nonnato · #1 (**permalink**) 19-05-2006, 10:03:09

Saludos a todos,

he declarado el siguiente array

Public ar_totales() As String

posteriormente lo he redimensionado

redim ar_totales(20)

Pero en algunos casos no llego a redimensionarlo y necesito saber si tiene alguna dimension, el problema esta en que si hago un

if ubound(ar_totales) then
...
end if

me provoca un error por no tener ninguna dimension.

Lo de comprobar si tiene dimension antes de redimensionar no es un capricho, es que en algunos casos puede darse la situacion que el programa requiera de dicho vector y que este aun no haya sido utilizado.

¿alguien puede ayudarme?

muchas gracias de antemano.

J.M.Movilla · #2 (**permalink**) 19-05-2006, 10:41:43

Yo no hago una "reserva" previa de elementos para un array, porque podrías encontrarte con que en un momento determinado necesitases 21 elementos, y... error al canto. Además, error insuperable mientras no modifiques el código...

Yo simplemente pongo

Código:

Dim ar_totales()
Dim n As Integer

y cuando precise usar esa variable, voy poniendo

Código:

n=0
ReDim Preserve ar_totales(n)
ar_totales(n) = "Perico"
n = n + 1

ReDim Preserve ar_totales(n)
ar_totales(n) = "los"
n = n + 1

ReDim Preserve ar_totales(n)
ar_totales(n) = "palotes"
n = n + 1

acalanto · #3 (**permalink**) 19-05-2006, 10:51:31

Tambien puedes probar lo siguiente

dim upp as long
upp = -1
On local error resume next
upp = ubound(ar_totales)
if upp = -1 then redim ar_totales(1 to 20)

nonnato · #4 (**permalink**) 19-05-2006, 11:25:28

Muchas gracias,

una vez mas la gran ayuda de estos dos grandes amigos me ha servido para resolver este problemilla.

Mil gracias.