Rene,
Todos los browses soportan busqueda incremental desde el primer día. Por
favor revisar las propiedad oSeek y el evento OnSeek de TBrowse. Incluso el
ejemplo DatacontrolsDbfData2 muestra como usarlo.
Saludos,
"Rene Flores" <
rflores.removeforspam@ciber-tec.com> escribió en el mensaje
news:[email=
4446e653@ozsrvnegro.ozlan.local...]
4446e653@ozsrvnegro.ozlan.local...[/email]
> 1000lio:
>
> Yo implemente busquedas incrementales en el DBBrowse y lo hice así:
>
> 1) defini una DATA llamada cBusca inicializada a ""
> 2) puse un panel en la barra de estado para poner lo que voy tecleando
> 3) en el evento ON CHAR del dbrowse, defini el evento ChkTecla y le
> escribi esto:
>
> METHOD chktecla( oSender, nKey, nFlags ) CLASS Catcue
> IF nKey == 8
> IF LEN(::cBusca) > 0
> ::cBusca := SUBSTR(::cBusca,1,LEN(::cBusca)-1)
> ENDIF
> ELSE
> ::cBusca += UPPER(CHR(nKey))
> ENDIF
> SET SOFTSEEK ON
> (ALIAS_CATALOGO)->(DBSEEK(::cBusca))
> oSender:Refresh()
> SET SOFTSEEK OFF
>
> WITH OBJECT ::oStatusBar1
> :aItems[2]:cText := "Buscando: "+ IIF(::nIndexActual == 1,;
> TRANSFORM(::cBusca,"@R
> 9999-9999-9999-9999"),;
>
> TRANSFORM(::cBusca,"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"))
> END
> RETURN Nil
>
> A ver si te hace un apaño....
>
> Saludos
>
> Rene Flores
>
http://www.ciber-tec.com
> emilio gil escribió:
>> Hola:
>>
>> tengo un dbBrowse abierto ::oDBrowse1:SetDbf(xPlacon) que es el
>> listado del plan contable que esta indexado por codigo y nombre, como
>> puedo hacer que me localize una determinada cuenta bien por codigo o
>> nombre, he probado en el evento onclick de un editbotton con
>>
>> sele xPlacon
>> dbseek(oSender:Value, .t.)
>> ::oDBrowse1:Refresh()
>>
>> pero no debe ser lo más adecuado.
>>
>> Gracias.
>> Emilio Gil.
>>