FoxPro/Visual FoxPro - SUCESO CLICK BOTÓN BUSCAR REGISTRO

Hola buenos días. Me gustaría saber si alguien me puede informar el código que tengo que poner
en el botón de comando para que me busque registros en una tabla. Se agradecería que se pusiera el código completo. Muchas gracias.

propiedad interactivechange del cuadro de texto a buscar

LOCAL lc, lnRecno
SELECT Articulo
if THISFORM.optiongroup1.option1.value= 1
set order to codint
endif
if THISFORM.optiongroup1.option2.value= 1
set order to desartic
endif

*SET ORDER TO DESARTIC
lc = ALLT(THIS.VALUE)
* IF NOT EMPTY(ORDER()) && busqueda con indice
* if ISDIGIT(lc)
* set order to codart
* endif
set near on
SEEK lc
* ENDIF
THISFORM.grdarticulo.SETFOCUS && el nombre del TextBox
THISFORM.text1.SETFOCUS && el nombre del Grid
RETURN
*--- END InteractiveChange ---

Muchas gracias por la respuesta, me ha sido de gran ayuda. Otra cosa quería preguntar, cuando listo un reporte la barra no se queda arriba del todo, toca hacer doble click para que se quede arriba. ¿Hay alguna instrucción para que quede arriba por defecto?

mira este ejemplo
DEFINE WINDOW lw_Report FROM 0,0 TO SROWS(), ;
SCOLS() In SCREEN TITLE "Reporte Histórico de ventas " ;
SYSTEM CLOSE NAME oPreview
ZOOM WINDOW lw_Report MAX
KEYBOARD '{CTRL+F10}' PLAIN CLEAR
REPORT FORM \INFORMES\HISTORIA PREVIEW NOEJECT NOCONSOLE WINDOW lw_Report
DEACTIVATE WINDOWS lw_Report
RELEASE WINDOWS lw_Report

saludos

Hola Alberto buenos días, muchas gracias por tu pronta respuesta. Soy nuevo en esto y "pico" un poquito de aquí, un poquito de allí y así voy construyendo la aplicación. Te paso el código que tengo en el suceso click del formulario, y si eres tan amable "me lo encajas" ¿vale?.

SELECT Transitario.transitari, Transitario.fobalicant,;
Transitario.fobvalenci, Transitario.notas;
FROM ;
transitario;
WHERE Transitario.transitari = thisform.combo1.Value;
ORDER BY Transitario.transitari;
INTO CURSOR consultafob
SELECT consultafob
IF consultafob.fobalicant = 0 AND consultafob.fobvalenci = 0 THEN
= messagebox("No hay datos con los registros indicados","Mensaje del programa")
ELSE
REPORT FORM "f:\usuarios\fran.navarro\documents\fran\naviera\fobtransitario.frx" TO PRINTER PROMPT NODIALOG PREVIEW
ENDIF