| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何实现本地图片自动加载到指定的列？ (http://foxtable.net/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
|