FoxPro/Visual FoxPro - Busqueda

hola a todo foro tengo un problema de busqueda quiero que al encontrar el registro se llenen mi text pero esto no resulta envio el codigo para que me ayuden

selec clientes
set order to cod_cli
seek thisform.text1.value
if found()
thisform.text2.value=clientespacientes.nom_cli
thisform.text3.value=clientes.ape_cli
thisform.text4.value=clientes.sexo_cli

Creo que te falta

thisform.refresh

ya lo coloque pero aun no muestra nada

pon así para ver que pasa:
...
...
if !found()
....
....

nada no se que pasa la verdad ya lo intente creando otra tabla eliminando los controles pero nada

No veo donde esté el problema, pero pues trata de utilizar otra alternativa:

Set Exact On

Select Clientes
set order to cod_cli
Locate for Clientes =Thisform.text1.value
if found() then
Wait Window "Dato Encontrado" Timeout .5
thisform.text2.value=clientespacientes.nom_cli
thisform.text3.value=clientes.ape_cli
thisform.text4.value=clientes.sexo_cli

else
Wait Window "No existe este Cliente, verifique..." Timeout .8

Endif

No veo donde esté el problema, pero pues trata de utilizar otra alternativa:

Set Exact On

Select Clientes
set order to cod_cli
Locate for Clientes =Thisform.text1.value
if found() then
Wait Window "Dato Encontrado" Timeout .5
thisform.text2.value=clientespacientes.nom_cli
thisform.text3.value=clientes.ape_cli
thisform.text4.value=clientes.sexo_cli

else
Wait Window "No existe este Cliente, verifique..." Timeout .8

Endif

Correcto Neo muchas gracias todo muy bien

SELEC clientes
SET ORDER TO cod_cli && que orden es este si fuera 1
SEEK (ThisForm.Text1.Value,"clientes",1)

ThisForm.text2.Value=clientes.nom_cli
ThisForm.text3.Value=clientes.ape_cli
ThisForm.text4.Value=clientes.sexo_cli