15/12/2004, 14:22
|
| | | Fecha de Ingreso: noviembre-2002
Mensajes: 224
Antigüedad: 22 años, 6 meses Puntos: 1 | |
| hola!
estoy casi segura que lo que pasa es lo siguiente:
Fijate en las lineas:
Redim Preserve Contenido(I)
if (Valor = "ROL") then
Contenido(I) = Valor
I= I + 1
Contenido(I) = "DV_ROL"
Else
...
End if
En la primera parte del if (si Valor="ROL") augmentas la variable I en una unidad y hasta ahi muy bien, pero en la linea Contenido(I) = "DV_ROL", has olvidado que la matriz sigue teniendo el mismo numero de elemtnos que tenia antes de augmentar la I, asi que debería quedar así:
Redim Preserve Contenido(I)
if (Valor = "ROL") then
Contenido(I) = Valor
I= I + 1
Redim Preserve Contenido(I)
Contenido(I) = "DV_ROL"
Else
...
End if
Espero que te sirva! Ataluego! |