Busqueda con ATC.

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.