oBrw:aCols[n]:nTotal := aCols[n]:nTotal + nValor
oBrw:refresh()
espero alguna sugerencia o sample, gracias, saludos...
![Shocked :shock:](./images/smilies/icon_eek.gif)
if ::bFooter != nil
if ::bFooter != nil .and. Empty( ::nFooterType )
function testx()
local oDlg, oBrw, oFont
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg SIZE 300,300 PIXEL TRUEPIXEL FONT oFont
@ 20,10 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
DATASOURCE { 1, 2, 3, 4 } COLUMNS 1 ;
CELL LINES NOBORDER FOOTERS FASTEDIT
WITH OBJECT oBrw
WITH OBJECT :aCols[ 1 ]
:nEditType := EDIT_GET
:nFooterType := AGGR_SUM
:bFooter := { |o| o:nTotal + 100 }
END
:MakeTotals()
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: groiss and 75 guests