24/09/2004, 08:24
|
| | | Fecha de Ingreso: agosto-2003
Mensajes: 203
Antigüedad: 21 años, 8 meses Puntos: 0 | |
| Probe con redim pero me genera un error
De todos modos quisiera saber com ovaciar al final los datos de la matriz.
Intente hacerlo con redim
dim MatrizT (1,1,1)
cont = 1
Do Until rt.eof
user = rt(3)
strclave = rt(2)
Accesos = rt(1)
Tiempo = rt(0)
contM = cont*3
cont=cont+1
ReDim Preserve MatrizT (contM,cint(user),cint(strclave))
MatrizT (0,cint(user),cint(strclave))=1
MatrizT (1,cint(user),cint(strclave))=Tiempo
MatrizT (2,cint(user),cint(strclave))=Accesos
rt.MoveNext
loop
El ERROR
El subíndice está fuera del intervalo |