主题：在窗口显示图片问题

附件

上传附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

额.测试没问题啊.可以马上显示啊

'Tables("表A").Current.DataRow.Load()

 测试，用下面的代码没有问题

 

Dim r As Row = Tables("表A").Current     '返回当前行

FileSys.CopyFile("D:\照片.bmp", "c:\" & r("样品") & ".jpg" ,True)
If FileSys.FileExists("D:\照片.bmp") Then
    FileSys.DeleteFile("D:\照片.bmp")  '则彻底删除之
End If
r("样品图片") ="c:\" & r("样品") & ".jpg"  ' 将照片列写入员工号.Jpg
r.DataRow.Load()

非常感谢有点甜的测试，我这里 “D:\样品\照片.bmp”的目录是外部程序产生的，所以无法更改，可否有别的方法呢

代码不用你更改目录啊

你改一下路径即可。

 

Dim path As String = "D:\样品\照片.bmp"

Dim r As Row = Tables("表A").Current     '返回当前行

FileSys.CopyFile(path, "E:\" & r("样品") & ".jpg" ,True)
If FileSys.FileExists(path) Then
    FileSys.DeleteFile(path)  '则彻底删除之
End If
r("样品图片") ="E:\" & r("样品") & ".jpg"  ' 将照片列写入员工号.Jpg
r.DataRow.Load()

上述代码 经测试 如果”样品图片“列，为空者正常，如果样品图片列 如果有内容者无效

就是只更换图片时无效