Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]扫描后的图片，点击单元查看不到图片，求助！！！


  共有3159人关注过本帖树形打印复制链接

主题：[求助]扫描后的图片，点击单元查看不到图片，求助！！！
帅哥哟，离线，有人找我吗？
hrw68529
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		[求助]扫描后的图片，点击单元查看不到图片，求助！！！  发帖心情 Post By：2021/6/11 10:04:00 [显示全部帖子]

问题如下：
有一列标题为“退役电子档案”为图片列，利用扫描仪扫描的文件存放在这一列，根据帮助里说明，我进行了以下设置：

在AfterOpenProject事件设置代码：

If FileSys.DirectoryExists(ProjectPath & "photo")=False Then  '如果目录不存在

    FileSys.CreateDirectory(ProjectPath & "photo") '则建立

End If

With FileWatcher

    .Path = ProjectPath & "photo"

    .Delay = 1000

    .Enabled = True

End With


然后将FileCreated事件代码设置为：

If FileSys.DirectoryExists(ProjectPath & "自主就业")=False Then  '如果目录不存在

    FileSys.CreateDirectory(ProjectPath & "自主就业") '则建立

End If

Dim Index As Integer = CurrentTable.Current("退役电子档案").split(vbcrlf).length

CurrentTable.Current("退役电子档案")= CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & Index & ".jpg" & vbcrlf

FileSys.CopyFile(e.FullPath, ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & Index & ".jpg",True)

扫描文件都没有问题，也存在了软件目录下的“自主就业”文件夹内，但点击“退役电子档案”单元格时，找不到图片，怎么解决，谢谢专家。如下图：

此主题相关图片如下：截图00.jpg
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 10:13:00 [显示全部帖子]

不想让他存放在默认的目录下，想存放在 ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & Index & ".jpg",True)这个目录下，怎么设置？谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 10:31:00 [显示全部帖子]

有点蓝老师，改了之后，可以是可以了，但扫描多张，只显示最后一张，当点击单元格查看图片时，怎么能看到多张图片？谢谢
[此贴子已经被作者于2021/6/11 10:30:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 10:51:00 [显示全部帖子]

有点蓝老师，显示的是多张，但是同一张，不好意思，打扰了。截图如下：
图片点击可在新窗口打开查看此主题相关图片如下：截图03.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 11:09:00 [显示全部帖子]

加入上述代码后，出现未知编译错误，

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 11:13:00 [显示全部帖子]

If FileSys.DirectoryExists(ProjectPath & "自主就业")=False Then  '如果目录不存在

    FileSys.CreateDirectory(ProjectPath & "自主就业") '则建立

End If

Dim Index As Integer = CurrentTable.Current.DataRow.lines("退役电子档案").count + 1

CurrentTable.Current("退役电子档案") = ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg"

FileSys.CopyFile(e.FullPath, ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg",True)

 
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 14:59:00 [显示全部帖子]

有点蓝老师，还是出未知错误
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 15:15:00 [显示全部帖子]

有点蓝老师，这段代码可以了，我一次连续扫描了多张图片，但图片管理器窗口只显示最后一张，怎么解决多张显示问题，谢谢。

If FileSys.DirectoryExists(ProjectPath & "自主就业")=False Then  '如果目录不存在
    FileSys.CreateDirectory(ProjectPath & "自主就业") '则建立
End If
Dim Index As Integer = CurrentTable.Current.DataRow.lines("退役电子档案").count + 1
Dim name As String = ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg"
CurrentTable.Current("退役电子档案") = name
FileSys.CopyFile(e.FullPath, name,True)
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 16:13:00 [显示全部帖子]

有点蓝老师，问题已解决，但是photo中 的图片使用过后，存量太大，能否，在将photo中的图片使用之后，自动删除。这样每次扫描的文件不占空间了。有何办法。在文件监视器的代码运行正常。如下：If FileSys.DirectoryExists(ProjectPath & "自主就业")=False Then  '如果目录不存在
    FileSys.CreateDirectory(ProjectPath & "自主就业") '则建立
End If
Dim Index As Integer = CurrentTable.Current.DataRow.lines("退役电子档案").count + 1
Dim name As String = ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg"
If CurrentTable.Current.isnull("退役电子档案")
    CurrentTable.Current("退役电子档案") = name
Else
    CurrentTable.Current("退役电子档案") = CurrentTable.Current("退役电子档案") & vbcrlf & name
End If
'CurrentTable.Current("退役电子档案") = name
FileSys.CopyFile(e.FullPath, name,True）
[此贴子已经被作者于2021/6/11 16:25:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2021/6/11 16:36:00 [显示全部帖子]

太好了，谢谢有点蓝老师。正确代码：If FileSys.DirectoryExists(ProjectPath & "自主就业")=False Then  '如果目录不存在
    FileSys.CreateDirectory(ProjectPath & "自主就业") '则建立
End If
Dim Index As Integer = CurrentTable.Current.DataRow.lines("退役电子档案").count + 1
Dim name As String = ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg"
If CurrentTable.Current.isnull("退役电子档案")
    CurrentTable.Current("退役电子档案") = name
Else
    CurrentTable.Current("退役电子档案") = CurrentTable.Current("退役电子档案") & vbcrlf & name
End If
'CurrentTable.Current("退役电子档案") = name
FileSys.CopyFile(e.FullPath, name,True)
FileSys.DeleteFile(e.FullPath,2,2) '则彻底删除之
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06738 秒, 5 次数据查询