以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在窗口显示图片问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53148)
--  作者：远航
--  发布时间：2014/7/1 7:27:00
--  在窗口显示图片问题
附件
--  作者：远航
--  发布时间：2014/7/1 7:29:00
--  
上传附件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
--  作者：Bin
--  发布时间：2014/7/1 8:50:00
--  
额.测试没问题啊.可以马上显示啊
--  作者：Bin
--  发布时间：2014/7/1 8:51:00
--  
\'Tables("表A").Current.DataRow.Load()

没有必要执行这一句
--  作者：有点甜
--  发布时间：2014/7/1 9:17:00
--  

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

 

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()
--  作者：远航
--  发布时间：2014/7/1 16:30:00
--  
非常感谢有点甜的测试，我这里 “D:\\样品\\照片.bmp”的目录是外部程序产生的，所以无法更改，可否有别的方法呢
--  作者：Bin
--  发布时间：2014/7/1 16:34:00
--  
代码不用你更改目录啊
--  作者：有点甜
--  发布时间：2014/7/1 17:08:00
--  

你改一下路径即可。

 

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()

[此贴子已经被作者于2014-7-1 17:07:58编辑过]
--  作者：远航
--  发布时间：2014/7/1 17:35:00
--  
上述代码 经测试 如果”样品图片“列，为空者正常，如果样品图片列 如果有内容者无效
--  作者：远航
--  发布时间：2014/7/1 17:36:00
--  
就是只更换图片时无效