FoxPro/Visual FoxPro - Problema con Grid

 
Vista:

Problema con Grid

Publicado por Gabriel (427 intervenciones) el 17/01/2012 04:40:51
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problema con Grid

Publicado por Juan (537 intervenciones) el 17/01/2012 21:22:49
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]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con Grid

Publicado por Gabriel (427 intervenciones) el 20/01/2012 04:16:53
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con Grid

Publicado por Juan (537 intervenciones) el 20/01/2012 20:43:54
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar