#INCLUDE "FiveWin.ch"
REQUEST DBFCDX
FUNCTION test1()
local oWnd, i
local t := seconds()
local vstruct:={}
RDDSETDEFAULT("DBFCDX")
IF !file('planning.dbf')
aadd(vstruct,{'NR','N',10,0})
dbcreate('planning',vstruct)
use planning new shared
FOR i=1 to 1000000
appe blank
repl nr with i
NEXT
index on str(nr) tag test
ELSE
use planning new shared
ENDIF
ordSetFocus( 'TEST' )
FOR i = 1 to 1000
seek str(92*i,10)
NEXT i
msginfo(seconds()-t)
RETURN nil
#INCLUDE "FiveWin.ch"
REQUEST DBFCDX
FUNCTION test()
local oWnd
RDDSETDEFAULT("DBFCDX")
use planning new shared
DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 TITLE "Test"
ACTIVATE WINDOW oWnd MAXIMIZED
RETURN nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 45 guests