
Matriz
Publicado por Analia (186 intervenciones) el 18/01/2007 21:53:03
Hola !!, como coloco un array de 12. en un campo de una tabla, prove con el siguiente codigo, pero no funciona.
Espero que me puedan ayudar.
SELECT 0
USE meses
DIMENSION mesnum(12)
STORE meses.enero TO mesnum(1)
STORE meses.febrero TO mesnum(2)
STORE meses.marzo TO mesnum(3)
STORE meses.abril TO mesnum(4)
STORE meses.mayo TO mesnum(5)
STORE meses.junio TO mesnum(6)
STORE meses.julio TO mesnum(7)
STORE meses.agosto TO mesnum(8)
STORE meses.septiembre TO mesnum(9)
STORE meses.octubre TO mesnum(10)
STORE meses.noviembre TO mesnum(11)
STORE meses.diciembre TO mesnum(12)
SELECT 0
USE Matriz
GO top
FOR I=1 TO 12
matriz.valor=matriz.valor+SPACE(1)+ALLTRIM(STR(mesnum(I)))
NEXT
matriz.valores=LTRIM(matriz.valores)
int(val(substr(valor,1,12)))
CLOSE DATABASES
thisform.Release
Espero que me puedan ayudar.
SELECT 0
USE meses
DIMENSION mesnum(12)
STORE meses.enero TO mesnum(1)
STORE meses.febrero TO mesnum(2)
STORE meses.marzo TO mesnum(3)
STORE meses.abril TO mesnum(4)
STORE meses.mayo TO mesnum(5)
STORE meses.junio TO mesnum(6)
STORE meses.julio TO mesnum(7)
STORE meses.agosto TO mesnum(8)
STORE meses.septiembre TO mesnum(9)
STORE meses.octubre TO mesnum(10)
STORE meses.noviembre TO mesnum(11)
STORE meses.diciembre TO mesnum(12)
SELECT 0
USE Matriz
GO top
FOR I=1 TO 12
matriz.valor=matriz.valor+SPACE(1)+ALLTRIM(STR(mesnum(I)))
NEXT
matriz.valores=LTRIM(matriz.valores)
int(val(substr(valor,1,12)))
CLOSE DATABASES
thisform.Release
Valora esta pregunta


0