Miguel
Muchas gracias
"Miguel C." <
mcastabaron@cajamar.es> escribió en el mensaje
news:[email=
42ae8a05@ozsrvnegro.ozlan.local...]
42ae8a05@ozsrvnegro.ozlan.local...[/email]
>
> Hola Carlos,
> En una pequeña agenda tengo lo que estas buscado, mira a ver si te sirve.
> Saludos. Miguel Castaño.
>
> METHOD Edit1Change( oSender ) CLASS TForm1
>
> LOCAL X
> X = ::oEdit1 : cText
> //
> IF len(alltrim(x)) > 0
> SET FILTER TO AT(RTRIM(X),Agenda->NOMBRE) != 0
> ELSE
> SET FILTER TO
> ENDIF
> //
> ::ODBBrowse1:Refresh()
> ::ODBBrowse1:GoTop()
>
>
> RETURN Nil
>
> "Carlos Cedeño Vera" <
carlos@labodegadeclimas.com> escribió en el mensaje
> news:[email=
42ade76e@ozsrvnegro.ozlan.local...]
42ade76e@ozsrvnegro.ozlan.local...[/email]
> > Para el ejmplo que expongo, sucede lo siguiente,
> >
> >
> > METHOD FormCreate( oSender ) CLASS TBuscar
> > LOCAL cFiltro
> > ::oForm := Application:oMainForm
> > WITH OBJECT ::oForm:oDSEquipos
> > :lShared := .T.
> > if !:lOpen
> > :lOpen := .T.
> > EndIF
> > :Select()
> > cFiltro := DBFILTER()
> > :ClearFilTer()
> > :goTop()
> > *:OrdSetfocus(Iif(::oRadioMenu1:nIndex ==
1,"BYIDINV","BYDESCRIP"))
> > //,iif(::oRadioMenu1:nIndex == 3,"BYDESCRIP""))
> > END
> > RETURN Nil
> >
> > METHOD Buscar() CLASS TBuscar /////// este Methodo lo ejecuto desde
el
> > Evento onchange del TEdit(::oEdDescrip)
> > LOCAL lDone
> > with object ::oForm:oDSEquipos //:Locate(::oEdDescrip:Value,.T.)
> > if !:lOpen
> > :lOpen := .T.
> > EndIf
> > ::oBrFind:aCols[2]:cFilter := alltrim(::oEdDescrip:Value)
> > ::oBrfind:Refresh(.t.)
> > END
> >
> > RETURN NIL
> >
> > Ahora bien,, no me funciona esto. Tambien hay algo curioso, cuando hago
> la
> > llamada a este formulario donde buscare de la forma que te explico, se
> > mantienen los datos filtrados como lo tengo en el formulario llamante,,
> > quito el filtro de varias formas y nada,, dbclearFilter(),
> > ::oDSEquipos:CliearFilter(), Set Filter to,, y nada me hace que muestre
> los
> > datos sin filtrado....... can you help please???
> >
> > GRacias de ante manos
> >
> > "Ignacio Ortiz de Zúñiga" <
InvalidAccount@ozs.com> escribió en el
mensaje
> > news:42ad3540$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
> > > Carlos,
> > >
> > > En el evento OnChange del TEdit establecer el filtro en el Browse. No
es
> > muy
> > > complicado.
> > >
> > > Un saludo,
> > >
> > > "Carlos Cedeño Vera" <
carlos@labodegadeclimas.com> escribió en el
> mensaje
> > > news:42aa2b23$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
> > > > Saudos a todos
> > > >
> > > > Sucede, que tengo un TEdit donde voy tecleando el nombre de un
> producto
> > x,
> > > > cada vez que que teclee una letra quiero que se vaya mostrando en un
> > brow
> > > > los nombres de los productos que van coincidiendo con lo que voy
> > tecleando
> > > > el el TEdit.
> > > >
> > > > Por favor, si alguien tiene un pequeño ejemplo, le estare
eternamente
> > > > agradecido. no tengo la menor idea de como hacerlo,, please help
> > > >
> > > > Gracias de antemanos
> > >
> > >
> >
> >
>
>