Anónimo
Error con arreglo
Hola hector, sera que puedes darme una mano cion esto: me da este error al pasearme por una lista "El subíndice está fuera del intervalo definido" y me da el error en un arreglo este es el código:
La que esta en negrita es donde me da el error.
parameters m.con1,m.con2
private posi,x
dimension aconsulta (255)
for posi = 1 to 255
aconsulta (posi) = ''
endfor
posi = 0
m.con1 = alltrim(m.con1)
do while !empty(m.con1)
x=at('%',m.con1)
posi = posi + 1
aconsulta(posi) = substr(m.con1,1,x-1)
if (x=len(m.con1))
m.con1 = ''
else&&(x=len(m.con1))
m.con1 = substr(m.con1,x+1,len(m.con1))
endif&&(x=len(m.con1))
enddo
La que esta en negrita es donde me da el error.
parameters m.con1,m.con2
private posi,x
dimension aconsulta (255)
for posi = 1 to 255
aconsulta (posi) = ''
endfor
posi = 0
m.con1 = alltrim(m.con1)
do while !empty(m.con1)
x=at('%',m.con1)
posi = posi + 1
aconsulta(posi) = substr(m.con1,1,x-1)
if (x=len(m.con1))
m.con1 = ''
else&&(x=len(m.con1))
m.con1 = substr(m.con1,x+1,len(m.con1))
endif&&(x=len(m.con1))
enddo
1 Respuesta
Respuesta de Hector Cevallos
1
¿pero qué valor pasas a m.con1? El error que te esta marcando es porque en el código estas tratando de almacenar un valor en consulta en una fila mayor a 255 y por eso te sale subíndice fuera del intervalo, trata de poner un messagebox como para saber en que posición esta grabando cuando te marca el error.