* Note - you probably would not want to rename these images in VFP but instead, do it in Windows Explorer
* I offer the VFP version just to show you what I mean by "renaming the file."
RENAME [c:\Fish\Images\CodFish.Jpg] TO [c:\Fish\Images\Img12345.Jpg]
* and then in your form when you wish to display that image
lcImagePath = [c:\Fish\Images] && or what ever (best not to hard code paths but this serves as an example)
lcImageFileName = [Img]+ALLTRIM(TRANSFORM(MyTable.RecordID))+[.jpg]
ThisForm.MyImage.Picture = ADDBS(lcImagePath)+lcImageFileName
LOCATE FOR MyTable.FishName = [CodFish]
lcImage = FULLPATH(GETPICT()) && Here the user will navigate to that Codfish.jpg file.
IF NOT EMPTY(lcImage)
REPLACE MyTable.cImage WITH lcImage IN [MyTable]
* And in your form,
ThisForm.MyImage.Picture = MyTable.cImage