FoxPro/Visual FoxPro - Problemas con busqueda en un grid y ordenacion

Hola, espero y alguien me pueda ayudar. Tengo una colsuta usando un grid y
este es mi codigo:
LOCAL lc, lnRecno
SELECT general
lc = ALLT(THIS.VALUE)
lnRecno = RECNO()
IF general.nombre >= lc
IF NOT BOF() &&Determina si el puntero esta ubicado al principio de tabla
SKIP -1 &&mueve puntero hacia atras
ENDIF
IF general.nombre < 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 general.nombre =lc WHILE general.nombre <= lc
NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR general.nombre =lc WHILE general.nombre <= lc NOOPTIMIZE
ENDIF

IF lnRecno # RECNO()
THISFORM.pageframe1.page1.Grid1.SETFOCUS && el nombre del TextBox
THISFORM.pageframe1.page1.Text1.SETFOCUS && el nombre del Grid
ENDIF
RETURN

Este codigo me guie con uno muy parecido solo cambian mis talbas y los
campos que quiero buscar, pero no lo realiza bien ya que me enconde
algunos campos, en el campo nombre puede que se repitan algunos y no me
los muestra.
Espero y me puedan ayudar
Gracias
Saludos

Quizá si lo hicieras así:
Select General
lc=allt(this.value)
lnRecno=RECNO()
longi=len(lc)
IF NOT EMPTY(ORDER()) && busqueda con indice
SEEK lc
ELSE
Loca for left(nombre,longi)=lc
ENDIF
If foun()
&&Lo que quieras hacer si lo encuentras
Else
Go lnRecno()
Endi

En el renglón 11 del código que muestras, has puesto GO RECNO(). Siendo que tu idea es ir al lnRecno, deberías decir GO lnRecno.

Hice lo que me hiciste que modificara el go recno por go inrecno y me manda un error que dice: "el archivo inrecno.prg no existe" y tambien sucedio lo mismo que con pedaso de codigo del primer mensaje que me enviaste y mando el mismo error en el GO inrecno.
Gracias

No.. yo copié esa variable de tu código pero no es " i ", sino que "ele", es decir que no es inrecno, sino lnrecno, o mejor dicho LNRECNO, así sin paréntesis. Ahí me equivoqué, porque le puse Go lnRecno( ) y sólo quise decir GO LNRECNO

Sigue pasando el mismo error de que el archivo lnrecno.pgr no existe.
La verdad ya no se que mas hacerle. ya cambie la letra que tenia.
Bueno talves estoy de mala suerte
Gracias

Hola.

Tengo un grid que hace la busqueda incremental.Si quieres me escribes y te lo envio.

Saludos

Llevo bastante tiempo intentandolo.
Por favor enviamen esa rutina.

Muchas gracias.