RE:Ayuda estoy por volverme loco
Prueba con esta linea de comandos, conforme vas digitando busca en tu GRID
Slds.
***************************************************************
LOCAL lnUltimaTecla, lcMostrarValor,lcUltimoValorMostrado, ;
lnUltimaSeleccion, lnSeleccionados
lnUltimaTecla = LASTKEY()
lcUltimoValorMostrado = ""
lnUltimaSeleccion = 0
lnSeleccionados = 0
IF (lnUltimaTecla >= 32 AND lnUltimaTecla <= 127)
IF THIS.SELSTART >= 1
lcMostrarValor = SUBSTR(THIS.VALUE,1,THIS.SELSTART-1)+(CHR(lnUltimaTecla))
ELSE
lcMostrarValor = (CHR(lnUltimaTecla))+ALLT(THIS.VALUE)
ENDIF
IF EMPTY(lcMostrarValor)
lcMostrarValor = ALLT(CHR(lnUltimaTecla))
ENDIF
***********************************
sele arti
seek alltrim(thisform.TxtBuscar.value)
thisform.GrdArti.refresh
************************************
lcUltimoValorMostrado = THIS.VALUE
lnUltimaSeleccion = THIS.SELSTART
lnSeleccionados = THIS.SELLENGTH
THIS.VALUE = lcUltimoValorMostrado
THIS.SELSTART = lnUltimaSeleccion
THIS.SELLENGTH = lnSeleccionados
ENDIF