FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xbrowse com um s贸 registro
Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
xbrowse com um s贸 registro
Posted: Mon Jul 25, 2016 06:44 PM

Ola,

Tenho um xbrowse de um arquivo vazio. Quando gravo alguns registro neste arquivo e refresco o xbrowse me mostra somente o primeiro registro.
Alguma id茅ia?

...

oTemp072:Zap()

oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:CreateFromResource( 4047 )
oBrw:nColDividerStyle := 5 //LINESTYLE_BLACK // COLUNAS
oBrw:lColDividerComplete := .T.
oBrw:nHeaderHeight :=30
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:bClrRowFocus := { || { CLR_BLACK, RGB( 150,231,70 ) } }
oBrw:cAlias("TEMP072")
oBrw:l2007:=.t.
oBrw:bClrSel:={ || { CLR_BLACK, RGB(185,220,255) } }

oCol := oBrw:AddCol()
oCol:AddResource("CHECKON")
oCol:AddResource("CHECKOFF")
oCol:cHeader := ""
oCol:bBmpData := { || iif( TEMP072->MARCADO, 1, 2) }
oCol:bStrData := nil
oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.)

oCol := oBrw:AddCol()
oCol:bStrData := { || TEMP072->BOLETO}
oCol:cHeader := "N潞 BOLETO"

........

For x = 1 to 32
oTemp072:Blank()
oTemp072:Boleto := strzero(x,6,0)
oTemp072:Append()
oTemp072:Save()
Next x
oTemp072:Commit()

oBrw:Refresh() <<<<<---------------------- aqui so mostra 1 registro no xbrowse

Gracias.

Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: xbrowse com um s贸 registro
Posted: Mon Jul 25, 2016 09:39 PM

Si haces oTemp072:GoTop() o oBrw:GoTop() para que vaya al principio del archivo de nuevo?
Porque la rutina que pusiste el registro queda parado en el ultimo.

Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
Re: xbrowse com um s贸 registro
Posted: Tue Jul 26, 2016 01:09 AM
cmsoft wrote:Si haces oTemp072:GoTop() o oBrw:GoTop() para que vaya al principio del archivo de nuevo?
Porque la rutina que pusiste el registro queda parado en el ultimo.


Gracias no funciona veja:

Continue the discussion