[求助]扫描后的图片，点击单元查看不到图片，求助！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3158人关注过本帖树形打印复制链接主题：[求助]扫描后的图片，点击单元查看不到图片，求助！！！

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/11 10:11:00 [显示全部帖子]

图片列是怎么设置的？有没有指定存放目录？http://www.foxtable.com/webhelp/topics/0088.htm

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/11 10:15:00 [显示全部帖子]

那么图片单元格就要输入完整路径

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

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/11 10:40:00 [显示全部帖子]

If CurrentTable.Current.isnull("退役电子档案")

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

Else

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

End If

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/11 11:01:00 [显示全部帖子]

保存文件的时候同名了吧

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

使用索引可能重复的，比如有3个文件，删除了第一个,然后再加一个，就会有2个索引为2的文件了......建议使用日期毫秒值区分

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

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/11 11:13:00 [显示全部帖子]

改后的完整代码发上来呀

另外项目名称，项目所在的路径不能有括号等特殊字符，否则无法显示正确的错误提示，只能显示未知编译错误

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/11 11:25: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"