FoxPro/Visual FoxPro - BUSQUEDA DE REGISTROS

Hola, necesito saber como le hago, para lo siguiente.

Tengo un formulario, en el un txtbox y un grid.

Tengo una tabla de productos.

Kiero escanear un codigo y hacer la busqueda en mi tabla y los resultados me los muestre en el grid. Como le hago?

en el valid del texbox pon el codigo necesario para buscar el articulo

*** TextBox.Valid

If Not Empty(This.Value) And Seek(This.Value,'TuTabla')
___Select Temp
___Append Blank
___Replace Temp.Campos With TuTabla.Campos
___ThisForm.Grid1.Refresh
EndIf

Para esto ya tienes que tener creado el cusor Temp y tenerlo asignado al grid
el grid tiene tener tantas columnas quieras mostrar y en el init del form pon este codigo

*** Forma.Init

Create Cursor Temp(;
___TusCampos C(10)) && C(10) es el tipo de datos y el tamaño asi que varia esto

* Asignalo al grid
With ThisForm
___.Grid1.RecordSourceType = 1
___.Grid1.RecordSource = 'Temp'
___.Grid1.Column1.ControlSource = 'Temp.Campo1'
___.Grid1.Column2.ControlSource = 'Temp.Campo2'
EndWith

* .Grid1.Column2.ControlSource = 'Temp.Campo2' - este codigo va tanas columnas tengas..

espero te ayude
saludos

Yo lo haria asi;

PUBLIC cCodigo
cBuscar=ALLTRIM(thisform..txtCodigo.Value)

SELECT productos
set filter to
SET FILTER TO UPPER(ALLTRIM(cCodigo))$UPPER(codigo)
GO TOP
thisform.grdProductos.RecordSource =" productos"
thisform.grdproductos.column1.ControlSource =" productos.codigo"
thisform.grdproductos.column2.ControlSource =" productos.nom_producto"
thisform.grdproductos.refresh
thisform.refresh


esta tabla contiene 2 campos, codigo y nom_producto, tu la haces a tu manera.

saludes amigo