FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour PROBLEMA CON ARRAY
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
PROBLEMA CON ARRAY
Posted: Tue Jun 03, 2008 03:43 PM

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

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 143
Joined: Fri Oct 07, 2005 03:14 PM
PROBLEMA CON ARRAY
Posted: Tue Jun 03, 2008 04:21 PM

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

Posts: 143
Joined: Fri Oct 07, 2005 03:14 PM
PROBLEMA CON ARRAY
Posted: Tue Jun 03, 2008 04:24 PM
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
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
PROBLEMA CON ARRAY
Posted: Tue Jun 03, 2008 06:47 PM

Muchas gracias!!!

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

Continue the discussion