On main program I open the file dbf
USE ( CurDir() + "\Clientes" ) VIA "DBFCDX"
if RecCount() == 0
APPEND BLANK
endif
if ! File( CurDir() + "\CliName.CDX" )
INDEX ON Clientes->Nombre TO ( CurDir() + "\CliName" )
endif
Clientes->( OrdSetFocus( "CliName" ) )
Clientes->( DbGoTop() )
and then on seek function
- Code: Select all Expand view
static function SeekClient( oLbx )
local cNombre := Space( 30 )
local nRecNo := clientes->(RecNo())
SET SOFTSEEK ON
Clientes->( OrdSetFocus( "CliName" ) )
if MsgGet( "Search", "Customer Name", @cNombre,;
"lupa.bmp" )
if ! clientes->( DbSeek( cNombre, .t. ) )
MsgAlert( "I don't find that customer" )
GO nRecNo
else
oLbx:UpStable() // Corrects same page stabilizing Bug
oLbx:Refresh() // Repaint the ListBox
endif
endif
return nil
where I make error ?
