FoxPro/Visual FoxPro - llamar datos

k tal amigos me puede decir por favor si está busqueda esta bien o le falta algo, (interactivechange)
saludos y gracias

*WITH thisform
*SELECT 1
*GO TOP
*SET ORDER TO numero
*SEEK('(ALLTRIM(.txtsecuencia.text))')

*thisform.txtcedula.Value = ""
*thisform.txtnombre.Value = ""
*thisform.txtapellido.Value = ""
*thisform.Refresh
*endwith

solo tengo otra pregunta. .txtsecuencia.text no deberia de ser .txtsecuencia.value ? y despues del seek tal vez deberias de colocar
if found()
** existe
else
** no existe
endif
solo eso chauuu.

No se si es lo que quieres pero alli esta
tienes que hacer una patalla con un lista y un texbox

LOCAL nIndex
FOR nIndex = 1 TO Thisform.ListBusqueda.ListCount
IF UPPER( Thisform.ListBusqueda.ListItem(nIndex) ) => UPPER( ALLTRIM( this.Value ) )
Thisform.ListBusqueda.ListIndex = nIndex
EXIT
ENDIF
ENDFOR

Thisform.ListBusqueda.Refresh

local lnRegno
lnRegno = 0
thisform.txtcedula.Value = ""
thisform.txtnombre.Value = ""
thisform.txtapellido.Value = ""

lnRegno = recno("nombretabla")

if seek(txtsecuencia.text,"nombretabla","nombre de indice")
thisform.txtcedula.Value = "por valor"
thisform.txtnombre.Value = "por valor"
thisform.txtapellido.Value = "por valor"
endif
* si quieres dejar la tabla donde estaba
go lnRegno in NOmbre de tabla

thisform.refresh()
return .T: