以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何实现本地图片自动加载到指定的列? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150551) |
|
-- 作者:xnsiwei -- 发布时间:2020/6/2 3:18:00 -- [求助]如何实现本地图片自动加载到指定的列? [求助]如何实现本地图片自动加载到指定的列? 目的: 例如:第一列有图片的文件名称,如何实现在第二列自动加载对应的图片? (图片文件在本地)
|
|
-- 作者:有点蓝 -- 发布时间:2020/6/2 8:45:00 -- 把第二列设置为图片列。 datacolchanged事件 If e.DataCol.Name = "第一列" Then e.DataRow("第二列") = e.DataRow("第一列") If FileSys.FileExists("c:\\xxx路径\\" & e.DataRow("第一列")) Then FileSys.CopyFile("c:\\xxx路径\\" & e.DataRow("第一列"),ProjectPath & "Attachments\\" & e.DataRow("第一列")) End If End If |
|
-- 作者:xnsiwei -- 发布时间:2020/6/2 10:47:00 -- 写进事件里去了,没动静? |
|
-- 作者:xnsiwei -- 发布时间:2020/6/2 10:58:00 -- OK了,谢谢 |
|
-- 作者:xnsiwei -- 发布时间:2020/6/3 0:18:00 -- 问题来了: 图片不能显示 If e.DataCol.Name = "照片名称"Then e.DataRow("照片") = e.DataRow("照片名称") If FileSys.FileExists("D:\\现状调查照片\\原照片\\" & e.DataRow("照片名称")) Then FileSys.CopyFile("D:\\现状调查照片\\原照片\\" & e.DataRow("照片名称"),ProjectPath & "Attachments\\" & e.DataRow("照片名称")) End If End If
[此贴子已经被作者于2020/6/3 0:21:04编辑过]
|
|
-- 作者:有点蓝 -- 发布时间:2020/6/3 8:25:00 -- 1、扩展类型不是图片列 2、图片不存在,或者路径错误
|
|
-- 作者:xnsiwei -- 发布时间:2020/6/3 14:37:00 --
|
|
-- 作者:xnsiwei -- 发布时间:2020/6/3 14:42:00 -- 解决:原来图片文件来源和存放要设置成同一个路径 |
|
-- 作者:xnsiwei -- 发布时间:2020/6/3 15:05:00 -- 问题又来了: 1、当已存在有图片时会弹出运行错误,显示调用目标出现异常,但点击过后仍然可以正常显示图片 2、当100张图片都村在时问题就比较烦了,要点击100多下 请问如何解决??
[此贴子已经被作者于2020/6/3 15:05:22编辑过]
|
|
-- 作者:有点蓝 -- 发布时间:2020/6/3 15:08:00 -- If FileSys.FileExists("D:\\现状调查照片\\原照片\\" & e.DataRow("照片名称")) andalso FileSys.FileExists(ProjectPath & "Attachments\\" & e.DataRow("照片名称")) = false Then FileSys.CopyFile("D:\\现状调查照片\\原照片\\" & e.DataRow("照片名称"),ProjectPath & "Attachments\\" & e.DataRow("照片名称")) End If
|