Crear un Browse tipo Excel.

[Garbi]

Hola estoy queriendo crear un browse tipo excel con x columna e y filas, en prinicpio he puesto 7 columnas y añado una fila,que pueden ir cambiando según determine el usuario pero no lo consigo , si lo hago asi :

Code: Select all | Expand

 DEFINE DIALOG oDDATOS RESOURCE "FOLDER" TITLE " " OF oApp:aMod[20]:oWnd

 REDEFINE BROWSE oBrwt ID 101 of oDDATOS

 OBrwt:SetArray( tfilas )


 VASCII:= 65

 for i:=1 to 7
 
     if i = 1
        ADD COLUMN to oBrwt ARRAY ELEMENT 1 HEADER " " size 100
     ELSE
         ADD COLUMN to oBrwt ARRAY ELEMENT i HEADER CHR(VASCII++) size 50
     endif

 next i
  aadd(tfilas,{"1","2","3","4","5","6","7"})
 

Me pone en la primera columna el 1 y despues en todas las demas el 7 . Supongo que sera porque todas las columna cogen el element 7

Tambien he probado asi, pero entonces no me saca ningún valor

Code: Select all | Expand

 DEFINE DIALOG oDDATOS RESOURCE "FOLDER" TITLE " " OF oApp:aMod[20]:oWnd

 REDEFINE BROWSE oBrwt ID 101 of oDDATOS

 OBrwt:SetArray( tfilas )


 VASCII:= 65

 for i:=1 to 7
     if i = 1
        Define Column oCol Head "" Size 50
        oBrwt:AddColumn(oCol)
     else
        Define Column oCol Head CHR(VASCII++) Size 50
        oBrwt:AddColumn(oCol)
     endif


 next i
  aadd(tfilas,{"1","2","3","4","5","6","7"})
 

¿Alguna ayuda?

Muchas Gracias

[Garbi]

Hola , no se si me habre explicado quiero crear distintas columnas pero a la hora de asignarle el element de el array siempre se queda con el ultimo valor del for.

Lo que necesito es saber como crear "x" columnas que pueden variar.

Supongo que debo usar addcolumn pero como le asigno el element del array.

Por favor necesito ayuda, estoy parado y necesito seguir.

Muchas Gracias.

[hmpaquito]

Hola,


Necesitas aplicar el concepto detached locals. Si lo buscas en el foro, hay muchos ejemplos de ello "detached".
En el caso que nos trae, la necesidad de su utilizacion se deberá a que la clausula ELEMENT del comando ADD COLUMN debe estar convirtiendo i a codeblock, y por eso tiene el valor último de la variable.

En tu caso seria asi:

Code: Select all | Expand

 for i:=1 to 7
 
     if i = 1
        ADD COLUMN to oBrwt ARRAY ELEMENT 1 HEADER " " size 100
     ELSE
         // ADD COLUMN to oBrwt ARRAY ELEMENT i HEADER CHR(VASCII++) size 50
         FunDetached(oBrwt, i, VASCII++)
     endif

 next i

STATIC FUNCTION FunDetached(oBrwt, i, VASCII)

ADD COLUMN to oBrwt ARRAY ELEMENT i HEADER CHR(VASCII) size 50
RETURN NIL

Saludos

[Garbi]

Muchísimas Gracias. Lo pruebo y comento el resultado.

[Garbi]

Funcionó perfectamente, lo tendré muy encuenta.

Muchísimas gracias