09 Abr 2015 16:16
#include "fivewin.ch"
REQUEST DBFCDX
Function main()
LOCAL cPath, cNombre
RddSetDefault( "DBFCDX" )
cPath := "CUSTOMER.DBF"
USE ( cPath ) NEW ALIAS cPath
cNombre := "Kenny" //cambiar el nombre
FastFilter( "*"+ Upper( cNombre ), 1 ) //El 1 para indicar el numero del Indice
dbGotop()
Browse()
return nil
Function FastFilter( cCad, nOrder )
Local nIndice := OrdNumber()
Set order to nOrder
INDEX ON &(IndexKey()) TAG _TEMP_ TO tHarbourt CUSTOM ADDITIVE MEMORY
Set order to nOrder
dbGotop()
Do While OrdWildSeek( cCad, .T. )
OrdKeyAdd( "_TEMP_" )
SysRefresh()
Enddo
OrdSetFocus( "_TEMP_" )
Return( nIndice )
16 Mai 2017 18:00
17 Mai 2017 01:29
17 Mai 2017 09:08
10 Jun 2017 14:18