I create an array adata where I save the data of record and I wish insert a scrollbar on bottom of xbrowse to refresh the record
- Code: Select all Expand view
oDbf:=TDatabase():Open( , "Lotto", "DBFCDX", .T. )
oDbf:setorder(1)
oDbf:goBottom()
nRecord:=oDbf:recno()
adata:= Creazione_array(oDbf,nRecord)
how do i reload a new record from scrollbar and update the xbrowse?
I made this
@ 135,10 SCROLLBAR HORIZONTAL SIZE 100,10 PIXEL OF oDlg ;
RANGE 1 , oDbf:OrdKeyCount() ;
ON UP (oDbf:SKIP(),adata:= Creazione_array(oDbf,oDbf:RECNO()),oBrw:refresh()) ;
ON DOWN (oDbf:SKIP(-1),adata:= Creazione_array(oDbf,oDbf:RECNO()),oBrw:refresh())
but not work