Index progress

Index progress

Postby Rimantas » Sat Oct 29, 2005 7:37 am

Hi !

I'm using this for CDX index progress , this works fine :

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;
IndProgres( oMeter, @lEnd, cInd_key, cInd_name, cDbf_name,
cDb_kel ) }, "File - " + alltrim( cDbf_name ) + " . Index - " + ;
alltrim( str( i, 2 ) ) + " ... ", ;
"Please wait , creating index of database . " + alltrim( str( len( aKeys ),
2 ) ) + " ind." )

function IndProgres( oMeter, lEnd, cInd_key, cInd_name, cDbf_name, cDb_kel )
oMeter:nTotal := ( cDbf_name )->( RecCount() )
index on &cInd_key tag &cInd_name to ( cDb_kel + cDbf_name ) ;
eval( oMeter:Set( ( cDbf_name )->( RecNo() ) ), SysRefresh(), !lEnd )
return( NIL )

How it make to work ADS CDX ? What values to use instead RecCount() and recno() ?

With best regards !
Rimantas U.
User avatar
Rimantas
 
Posts: 437
Joined: Fri Oct 07, 2005 12:56 pm
Location: Utena , Lithuania

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: nageswaragunupudi and 64 guests