XCODIGO=ALLTRIM(THISFORM.TEXTO10.VALUE)
SELE SERIES
INDEX ON Codigo to STR(CODIGO) &&aca indexo la tabla por el campo nombre
SEEK XCODIGO &&busco el valor de textbox
ThisForm.grid1.SETFOCUS() &&me posiciono el el registro encontrado
IF !FOUND() THEN &&si no lo encuentra se va al final
GO BOTTOM
WAIT WIND "NO SE ENCONTRO" NOWAIT
ENDIF
ThisForm.grid1.REFRESH