FoxPro/Visual FoxPro - Problema con Grid

Amigos :

No consigo hacer filtrar por decirlo de alguna manera ciertos
registros segun el tipo de Articulo en un Grid.

Tengo un formulario que me muestra en un Grid todos los articulos
existentes incluyendo una imagen por cada articulo.

Inicialmente utilizaba una simple rutina para que me muestre al
ingresar en un control TextBox un articulo cualquiera y el cursor se
ubicaba en dicho registro.

Pero ahora el cliente desea que el Grid muestre solo los articulos de
forma filtrada :

Ej : Camisa Sport
Camisa de Seda
Camisa Tejana
Camisa para Niños

Muestro el codigo que vengo utilizando.

Load :
Create cursor myImageList (FileName C(70), cDescr C(25), cArchivo
C(75))

For ix=1 to alen(aImageList,1)
Insert into myImageList values (lcPath+aImageList[ix,1],
JUSTFNAME(lcPath+aImageList[ix,1]), (lcPath+aImageList[ix,1]))
Endfor
Go top

Init :
SELECT MyImageList
Index On cDescr To XDESC
Set Order To XDESC
Go Top

Interactivechange : ( TextBox)
* nombre es el campo de la tabla prueba && PROBAR
SELECT * FROM MyImageList ;
WHERE Alltrim(Thisform.text1.Value) $ Alltrim(MyImageList.cDescr) ;
Into CURSOR Grilla

Thisform.Grid1.RecordSource = "Grilla"

Agradezco sus comentarios y sugerencias.

atte.,

Gabriel

Prueba este código a ver
Thisform.Grid1.RecordSource = "Grilla" ** esto ya lo tienes agrega el resto de campos
a mostrar
Thisform.Grid1.Column1.Text1.Value="Grilla.Campo1"
** Formateo de Columnas, si son caracter-Númericas etc .
Thisform.Grid1.Column1.Text1.Value="Grilla.Campo2"

Thisform.Grilla.Refresh
** te dejo mí [email protected]

Gracias amigo Juna por tu sugerencia...

He cambiado el codigo de la instruccion SQL por la siguiente instruccion.

*R=Len(Alltrim(Thisform.Text1.Value))
*Select Filename AS Imagen, cDescr AS Descripcion, cArchivo AS Archivo ;
From MyImageList ;
Where Alltrim(This.Value) = SubStr(Alltrim(cDescr),1,R) ;
Into CURSOR Grilla

*Thisform.Grid1.RecordSource = "Grilla"
*Thisform.Grid1.Refresh

Realiza el filtrado pero se pierde la Imagen, es decir el 1er. Campo no me muetra la Imagen sino la ruta completa de la imagen.

Que crees que falte para resolver mi problema.

atte.

Gabriel

para que encuentre la imagen o foto
hace una ruta con el set path to// donde se ubican las fotos
en el evento Init de la Columna1 de la Text1 del Grid1

R=Len(Alltrim(Thisform.Text1.Value))
*Select Filename AS Imagen, cDescr AS Descripcion, cArchivo AS Archivo ;
From MyImageList ;
Where Alltrim(This.Value) = SubStr(Alltrim(cDescr),1,R) ;
Into CURSOR Grilla

*Thisform.Grid1.RecordSource = "Grilla"
*Thisform.Grid1.Refresh