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

1 Respuesta

Respuesta
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.

Añade tu respuesta

Haz clic para o