A ver si alguien me puede ayudar
Para mostrar un browse de un array uso el siguiente codigo
Pero ahora quiero crear las columnas en un array al estilo
pero no me funciona, se que no puedo asignar directamente la variable del bucle
gracias
Para mostrar un browse de un array uso el siguiente codigo
aDatBrow := {}
REDEFINE COLUMN BROWSE oDetalle ID 450 OF oDialogo FONT oFontBrw
oDetalle:SetArray(aDatBrow)
ADD COLUMN TO oDetalle DATA ARRAY ELEM 1 HEADER "" SIZE 10
ADD COLUMN TO oDetalle DATA ARRAY ELEM 2 HEADER "Cod. Art." SIZE 100
ADD COLUMN TO oDetalle DATA ARRAY ELEM 3 HEADER "Descripción" SIZE 200
....Pero ahora quiero crear las columnas en un array al estilo
aDatBrow := {}
aCols := { "", "Cod. Art", "Descripcion" }
REDEFINE COLUMN BROWSE oDetalle ID 450 OF oDialogo FONT oFontBrw
oDetalle:SetArray(aDatBrow)
for i = 1 to len(aCols)
oDetalle:AddColumn( TCColumn():New( If(.F., OemToAnsi(aCols[i]), aCols[i]), {|x| If(Pcount()>0, oDetalle:aArray[oDetalle:nAt, i] :=x, oDetalle:aArray[oDetalle:nAt, i])},,,,, 10, .F., .F.,,,, .F. ) )
next igracias