Hace dias que estaba buscando la manera de hacer una busqueda incremental en un xBrowse usando como DataSource el resultado de un Query, SIN necesidad de hacer una nueva consulta a la base de datos.
Ante eso, solicite ayuda al foro en estas dos oportunidades:
viewtopic.php?f=6&t=42368
viewtopic.php?f=6&t=42384
Despues de tanto buscar y probar, con la sugerencias y colaboracion de los amigos cesar, willi, joao y carlos vargas, como siempre prestos a dar una mano, y finalmente con el toque del Master Mr. Rao, logre hacerlo.
Aca el codigo fuente por si alguien mas lo necesita.
- Code: Select all Expand view
- Static Function Fnct_oBrwSeek(oGetSeek, cSeek)
Local aShowRecs
aShowRecs :={}
oBrwUsers :aFilter:= nil
if !Empty(cSeek)
oBrwUsers:GoTop()
Do while !oBrwUsers:Eof()
iif ( AT( (alltrim(Upper(cSeek))),(Upper(oBrwUsers:aCols[cBrwNombre]:Value)))>0 , aadd(aShowRecs, oBrwUsers:BookMark),)
oBrwUsers:Skip()
enddo
iif ( len(aShowRecs)>0 , oBrwUsers:aFilter:=aShowRecs , msgAlert('No hay Registros con Estas Caracteristicas',;
'No Se Encontraron Datos') )
endif
oBrwUsers:Refresh()
return .t.
Muchas gracias a todos, de verdad estoy muy agradecido con este maravilloso foro.
Si alguien puede mejorar el codigo, seria excelente !!
Un abrazo a todos
