FoxPro/Visual FoxPro - Busqueda tipo winamp

Hola a todos, como puedo hacer una busqueda tipo winamp, lo que quiero hacer es conforme voy escribiendo letra por letra en un text, vaya buscando en el grid, estoy usando el Visual FoxPro 8.0:

En Visual FoxPro 6.0 usaba este código:
PUBLIC campo
campo = UPPER(ALLTRIM(THISFORM.TxtBusca.Value))
SELEC proveedor
SET FILTER TO campo$proveedor.empresa
GO TOP

y funciona muy bien, pero en Visual FoxPro 8.0 no funciona.

De antemano muchas gracias.

YO UTILIZO VFP 8.0. LO HAGO DE LA MISMA FORMA QUE TU TIENES

PROCEDURE txtBusca.InteractiveChange

SELECT proveedor && selecciono el área de trabajo

GO TOP && principio de la tabla, para que inicie la búsqueda desde alli.

SET FILTER TO ALLTRIM(THISFORM.txtBusca.Value) = ALLTRIM(proveedor.empresa)

SET FILTER TO

ENDPROC

asi lo hago en vfp8 es lo mismo que en vfp6, la codificación en el no cambia

Hola amigo

Loque puedes hacer es utilizar una SELECT este sera mucho mas facil y rapido a tu progra para hacer to neseitamoes que tengas un TEXT y una GRID o LISTA

en el evento INTERACTIVECHANGE del TEXT

thisform.grid1.recorsource=""

xdat=allt(upper(this.value))

select * from proveedor where allt(upper(empresa))=xdat into cursor t1

tambien puedes usar el LIKE todo depende de como quieras mostrar tus datos

select * from proveedor where allt(upper(empresa)) like "%"+xdat+"%" into cursor t1

thisform.grid1.recorsource="t1"
thisform.refresh

... Y listo ... suerte