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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图片

共有3399人关注过本帖树形打印复制链接主题：[求助]图片

风声

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00

[求助]图片 发帖心情

Post By：2014/10/31 13:36:00 [只看该作者]

With FileWatcher
    .Path = "E:\狐表\账册\蓝峰管理\送货单"
    .Delay = 1000
    .Enabled = True
End With

上面是项目事件的代码。

Dim r As Row = Tables("出库明细").Current
r("送货单") = r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\送货单" & r("送货单"),True)

这是监视器的代码

我扫描文件后在图片列输入该图片的名称后能打开图片然而项目重启后图片列就打不开了，另外没有把图片复制到指定的目录中。求解

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/10/31 14:03:00 [只看该作者]

Dim r As Row = Tables("出库明细").Current
r("送货单") = r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("送货单"),True)

风声

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00

Post By：2014/10/31 15:20:00 [只看该作者]

老师，为什么不能导到子文件夹，譬如（送货单）文件夹

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/10/31 15:21:00 [只看该作者]

Dim r As Row = Tables("出库明细").Current
r("送货单") = "送货单\" & r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("送货单"),True)

风声

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00

Post By：2014/10/31 16:53:00 [只看该作者]

I:\狐表\Attachments\送货单。这是图片调用后存放的路径。老师，还是不能复制到要存放的文件夹中。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/10/31 16:55:00 [只看该作者]

这段代码有问题？代码触发了吗？

Dim r As Row = Tables("出库明细").Current
r("送货单") = "送货单\" & r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("送货单"),True)