ARRAY EN BROWSE ( TSBROWSE)

[A&C]

Alguien me podria explicar como usar BROWSE con ARRAY,

yo uso TSBROWSE,, ahi defino con ADD COLUMN TO Obrw ARRAY ELEMENT

algun ejemplo util

GRACIAS

[joseluisysturiz]

te envie algo a tu privado, espero te ayude, es de ayuda de otros colegas.

[dbzap]

Asi lo tengo yo
Saludos

Code: Select all  Expand view


   oBrw := TXBrowse():New( oDlg )
   oBrw:CreateFromResource( 100 )

   oBrw:SetArray( aDatos, .t. )  // .t. para que haga sort de los datos

   oBrw:aCols[1]:cHeader := "TD"
   oBrw:aCols[2]:nDataStrAlign := 0    // 0=izq  1=der

   oBrw:aCols[2]:cHeader := "#Número"
   oBrw:aCols[2]:nDataStrAlign := 0

   oBrw:aCols[3]:cHeader := "F.Emisión"
   oBrw:aCols[3]:nDataStrAlign := 0

   oBrw:aCols[4]:cHeader := "F.Ult.Venc."
   oBrw:aCols[4]:nDataStrAlign := 0

   oBrw:aCols[5]:cHeader := "Mo."
   oBrw:aCols[5]:nDataStrAlign := 0

   oBrw:aCols[6]:cHeader := "V.Bruto"
   oBrw:aCols[6]:nDataStrAlign := 1

   oBrw:aCols[7]:cHeader := "Saldo"
   oBrw:aCols[7]:nDataStrAlign := 1

   oBrw:aCols[8]:cHeader := "Tasa"
   oBrw:aCols[8]:nDataStrAlign := 1

   oBrw:aCols[9]:cHeader := "ID"
   oBrw:aCols[9]:nDataStrAlign := 1

   oBrw:lHScroll := .T.
   oBrw:lVScroll := .T.

   oBrw:nRowDividerStyle := 4
   oBrw:nColDividerStyle := 4
   oBrw:nMarqueeStyle    := 5
   oBrw:lRecordSelector  := .f.



[sjingo]

Yo uso el wbrowse de Hernán y funciona muy bien con arrays


@15,1 listbox listrubros fields str(arubros[listrubros:nat][1],10,0)),;
arubros[listrubros:nat,2],;
arubros[listrubros:nat,3];
headers "Rubro", "Descripcion", "Medida";
fieldsizes 50,200,50;
of oFolde:aDialogs[2] font ofont size 330, 120 update pixel
listrubros:ajustify:={.f.,.f.,.f.}
listrubros:cAlias := "ARRAY"
listrubros:setarray(arubros)
listrubros:lcellstyle:=.t.
listrubros:nlinestyle:=1


Un saludo

Marcelo Jingo

[horacio]

mandame tu correo y te mando un ejemplo. El mio es horacio_dellacasa@yahoo.com.ar

Saludos