PROBLEMA CON ARRAY

[MOISES]

Hola:

Quiero tener un array con cuatro columnas:

.t., campo, nombre, tipo

Hago:

DbEstructura := DbStruct()

FOR i := 1 TO Len( DbEstructura )
axArray := { { .T., DbEstructura[1], DbEstructura[1], DbEstructura[2] }}

NEXT
aSort(aXArray,,,{|x,y| x[1] < y[1]})

Pero no muestra nada.

El resultado debería ser:

.T. CAMPO1 CAMPO1 N
.T. CAMPO2 CAMPO2 C
.T. CAMPO3 CAMPO3 C

etc

¿qué hago mal?. Muchas gracias. Un saludo

[Joel Andujo]

Asi debe funcionar :

DbEstructura := DbStruct()
axArray:={}

FOR i := 1 TO Len( DbEstructura )
aadd( axArray, { .T., DbEstructura[1], DbEstructura[1], DbEstructura[2] } )
NEXT
aSort(aXArray,,,{|x,y| x[1] < y[1]})

saludos
Joel Andujo

[Joel Andujo]

Perdon, eses es el bueno :

DbEstructura := DbStruct()
axArray:={}

FOR i := 1 TO Len( DbEstructura )
aadd( axArray, { .T., DbEstructura[i,1], DbEstructura[i,1], DbEstructura[i,2] } )
NEXT
aSort(aXArray,,,{|x,y| x[1] < y[1]})





Saludos
Joel Andujo

[MOISES]

Muchas gracias!!!