Me pregunto si es posible en la clase xBrowse merde opciĆ³n de utilizar la base de datos (dbf) directamente
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xBrowse con merge
Ronaldo,
Si, es posible. Lo que ocurre es que la DBF debe contener pocos registros o funcionarĆ” lento.
Vamos a proporcionarte un ejemplo.
#include 'fivewin.ch'
#include 'ord.ch'
#include 'xbrowse.ch'
REQUEST DBFCDX
function main()
local aData
local oDlg, oBrw, oCol, oFont
local nTotal
BuildIndex()
use customer new alias 'cust' shared via 'DBFCDX'
set order to tag state
go top
DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
DEFINE DIALOG oDlg SIZE 560,680 PIXEL ;
TITLE 'TXBrowse - Merged Cells' ;
FONT oFont
@ 10,10 XBROWSE oBrw ;
COLUMNS 'State', 'City', 'Last', 'Age', 'Salary' ;
SIZE 260,320 PIXEL ;
COLSIZES ,100,,,100 ;
PICTURES ,,,'@Z 99', '999,999,999.99' ;
JUSTIFY AL_CENTER ;
OF oDlg ALIAS 'CUST' LINES CELL
oBrw:bClrSelFocus := { || { CLR_BLUE, nRGB( 230, 255, 230 ) } }
oBrw:lColDividerComplete := .f.
// Following line for vertical cell merging
oBrw:State:lMergeVert := .t.
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
static function BuildIndex
FIELD STATE
if File( "customer.cdx" )
FErase( "customer.cdx" )
endif
use customer exclusive via 'DBFCDX'
index on state tag state
use
return nil