FoxPro/Visual FoxPro - COMO MOSTRAR IMAGENES EN UN GRID EN VFP9

SELECT ARTEFACTOS

INDEX ON codigo  TO C:\REPUESTOS\CARGARPRODUCTOSIMAGEN00000001

SELECT ARTEFACTOS

GO TOP

*vimagen=ALLTRIM(ARTEFACTOS.IMAGEN)

DO WHILE !EOF()

	vimagen=ALLTRIM(ARTEFACTOS.IMAGEN)

	vimagevacia='C:\REPUESTOS\Imagenes\imagevacia.jpg'

	IF LEN(vimagen)>0

	*thisform.grid1.column3.DynamicCurrentControl = "thisform.FotoDinamica()"

		thisform.grid1.column3.fotosola1.image1.Picture = vimagen

		thisform.grid1.column3.setfocus

	ELSE

		thisform.grid1.column3.fotosola1.image1.Picture = vimagevacia

		thisform.grid1.column3.setfocus

	endif

	SELECT ARTEFACTOS

		IF !EOF()

		 SKIP

		ELSE

		ENDIF

ENDDO

SELECT ARTEFACTOS

INDEX ON codigo  TO C:\REPUESTOS\CARGARPRODUCTOSIMAGEN00000002

GO top

thisform.grid1.column3.setfocus

thisform.grid1.Refresh