FoxPro/Visual FoxPro - Ayuda urgente por favor

Saludo foro,

el problema es:
1.-
tengo un cuadro de texto llamado codigo y otro nombre

cuando escribo un codigo y pulso enter, en caso de que el codigo no exista quiero que el focus regrese nuevamente al codigo. veo que cuando un cuadro de texto pierde el focus me da problemas para regresar a el.

2.- Que hago para que cuando activo un select, si pulso enter sobre algun registro se cierre el select automaticamente la ventana.

Esto lo estoy haciendo para elegir articulos para irlo facturando, escribo lo que quiero buscar en un cuadro de texto y en el lofocus tengo esto:

ejemplo:
select codigo,nombre,precio from articulos where alltrim(nombre) = alltrim(m.nombre)

habre los registros que cumplen con la condicion y quiero que me permita elegir alguno pulsando enter y cierre el cuadro del select, como lo hace con esc.

Si alguien tiene otra forma mejor de hacerlo lo agradezco.

Gracias, esto es muy importante para mi.

1-
IF !FOUND()
=messagebox('error, no se encuentra')
NODEFAULT
RETURN .F.

ENDIF

2- Es mejor que tengas una ventana con un grid, es mas limpio y mas facil de manejar.

Saludo y gracias a todos por la amabilidad de servir

Mi primer problema fue resuelto y ya lo estoy aplicando, agradezco infinitamente la ayuda, gracias mil.

En el segundo problema necesito que me aclaren algo:

Solo quiero la forma mas facil de ir buscando articulos seleccionar el deseado para irlo agregando a una tabla de detalle de factura.

Si se pudiera con un select ya que la busqueda es bien rapida ó mientras boy escribiendo que vayan apareciendo lo que correspondan con lo que escribo.

Estoy seguro que con esto llegare bien lejos ya que en todos los modulos esto es lo que me falta.

Gracias nuevamente.

si tienes la tabla indexada, debes utilizar el interactive change del textbox, alli escribes unas lineas como estas:

set exact off
seek codigo_a_buscar
set exact on
thisform.tu_listbox.refresh
.................

Trata de hacer el codigo que esta en el siguiente enlace, a ver si te gusta

http://support.microsoft.com/kb/166378/en-us

Ya veo.

Esto que tienes en el lostfocus debe ir en el valid

en la parte

IF NOT FOUND()
RETURN 0
ENDIF

Con esto no sales del objeto hasta que pongas un código válido.

Espero que te sirva.