xbrowse don't show datas

[Wanderson]

Hello all,

xBrowse dont show any data.
What i do wrong?

oArqPrev:SetOrder("CODIGO")
oArqPrev:GoTop()

oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:CreateFromResource( 4001 )
oCol := oBrw:AddCol()
oCol:bStrData := { || ARQPREV->CODIGO}
oCol:cHeader := "CÓDIGO"
oCol := oBrw:AddCol()
oCol:bStrData := { || DTOC(ARQPREV->DATALAN)}
oCol:cHeader := "DT.LAN."
oCol := oBrw:AddCol()
oCol:bStrData := { || ARQPREV->DESCON}
oCol:cHeader := "CONTA"
oCol := oBrw:AddCol()
oCol:bStrData := { || Substr(ARQPREV->NOMEFOR,1,28)}
oCol:cHeader := "FORNECEDOR"
oCol := oBrw:AddCol()
oCol:bStrData := { || DTOC(ARQPREV->VENCIMENTO)}
oCol:cHeader := "VENCTO"
oCol := oBrw:AddCol()
oCol:bStrData := { || Tran(ARQPREV->VALOR,"@e 999,999.99")}
oCol:cHeader := "VALOR"
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:l2007:=.t.
oBrw:bChange := { || oRadio1:Refresh(), oBrw:Refresh() }
oBrw:SetRdd()

Shows me blank.

thanks in advance.

[Wanderson]

I found
I have to do sele arqprev and go top to show records.
How i can know in multiselect xbrowse if a record marked or not?

thanks in advance.

[anserkk]

oBrw:aSelected

Regards
Anser

[Wanderson]

Hi Anser, obrw:aSelected give me array with numbers, this numbers is a recno() of file?
I use oBrw:bKeyDown := {|nKey| Seleg(nkey)} but if i press Shift+key down the browse select the items but dont process the function Seleg() how i can do this?
Thank you so much.

Wanderson.

[anserkk]

Dear Mr.Wanderson.

oBrw:aSelected is an Array of RecNo()'s (Single dimensional)

Use the below given Marquee style for multi select xBrowse

Code: Select all  Expand view

oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROWMS

You may further process oBrw:aSelected array as per your requirement

Code: Select all  Expand view

oBrw:bKeyDown:= {| k | if( k == VK_DELETE, ( DeleteRow( oBrw ), oBrw:refresh()), ) }

Function DeleteRow(oBrw)
..
  For i:=1 to len(oBrw:aSelected)

    ...

  Next
..

Return
 

Regards
Anser