FoxPro/Visual FoxPro - fernando

Hola amigos tengo un problema que esta por volver loco, les explico.
tengo un formulario con un textbox y un grid. Lo que hago es buscarcar en el text un articulo. lo hago asi.

En el metodo "InteractiveChange"

LOCAL lc, lnRecno
SELECT Articulos
lc = ALLT(THIS.VALUE)
lnRecno = RECNO()
IF articulos.desartic >= lc
IF NOT BOF()
SKIP 1
ENDIF
IF articulos.desartic > 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 articulos.desartic=lc WHILE articulos.desartic <= lc NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR articulos.desartic=lc WHILE articulos.desartic <= lc NOOPTIMIZE
ENDIF

IF lnRecno # RECNO()
THISFORM.buscar.grid1.SETFOCUS
THISFORM.buscar.txtCiudades.SETFOCUS
ENDIF
RETURN

Pero que pasa cuando estoy en el programa de vox probando me funciona de mil maravillas pero cuando creo un ejecutable y luego lo ejecuto. La primera ves me busca genial pero despues al volver a intentarlo me envia al ultimo registro y de ahi no se mueve. Y no se porque hace eso si me podrian ayudar saludos

Lo que pasa que los Grid los tienes que Refrescar.. en este caso creo que te funcionaria ReQuery..

Por mi parte el buscar con InteractiveChange es muy lento .. te inmaginas 100 usuarios buscando todos al mismo tiempo.. yo tengo una forma donde busco solo el puro resultado, y el si lo que necesito es ir moviendome por cada fila utilizo el List.. si gustas te mando un copia solo escribeme bye..

Saludos Saul Hernandez..

enviame por favor te lo voy a agradecer..... mi email es [email protected]

Saludos