Juan Carlos
26 de Julio del 2009

Hola:
Tengo en un formulario un Texto y un Grid; en el texto en InteractiChange programe lo siguiente:

Thisform.GrdArt.RecordSource = "SELECT Codigo, Nombre, CIF, FOB, Seccion, Catego " +;
"FROM Art " +;
"WHERE ATC(ALLTRIM(wwNom), Art.Nombre) != 0 " +;
"ORDER BY Codigo " +;
"INTO CURSOR MiCur READWRITE"

Deseo que en el Grid me muestre los registros que cumplen la condici贸n a medida que voy digitando; NO despliega el grid como yo deseo, espero me la entiendan la pregunta, agradezco de antemano su atenci贸n.
Saludos

hreyes
26 de Julio del 2009

te paso un c贸digo que me funciona en un form con un texto y un grid:
*--- InteractiveChange ---
LOCAL lc, lnRecno
SELECT "tabla"
lc = ALLT(THIS.VALUE)
lnRecno = RECNO()
IF "tabla.campo" >= lc
IF NOT BOF()
SKIP -1
ENDIF
IF "tabla.campo" < lc && debe quedar donde estaba
IF lnRecno <= RECC()
GO RECNO()
ELSE
GO BOTT
ENDIF
RETURN
ENDIF
IF NOT EMPTY(ORDER()) && busqueda con indice
SEEK lc
ELSE
GO TOP
LOCATE REST FOR "tabla.campo"=lc WHILE "tabla.campo" <= lc NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR "tabla.campo"=lc WHILE "tabla.campo" <= lc NOOPTIMIZE
ENDIF

IF lnRecno # RECNO()
THISFORM.grd1.SETFOCUS && el nombre del TextBox
THISFORM.txt1.SETFOCUS && el nombre del Grid
ENDIF
RETURN
*--- END InteractiveChange ---

"tabla.campo" es igual a la tabla y campo con el cual haces tu b煤squeda.
espero te sirva.