Create Cursor vwnames(Name c(10),picx M NoCPTrans) Select tbnames Go Top Do While Not Eof() Lpic1='\test\picture\'+Alltrim(tbnames.Name)+'.jpg' Lpic=Filetostr(Lpic1) Select vwnames Append Blank Replace Name With tbnames.Name Replace picx With Lpic Select tbnames Skip EnddoMETHOD setpicture
thisform.grid1.column1.image1.PictureVal=vwnames.picx GRID column1 DynamicFont Bold is thisform.setpicture() SPARSE = .f.this program was working perfectly on a computer with VFP 9 , this computer did not have an internet connection. (could that be the reason ?)