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

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

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

风声

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

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

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

dvubb 此主题相关图片如下：图像 1.png

文件监视器代码 FileCreated事件

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

监控目录，AfterOpenProject事件

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

老师，找不出原因啊

[此贴子已经被作者于2014-10-31 20:07:57编辑过]

风声

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

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

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

列属性除图片型外其它要设置吗

风声

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

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

Post By：2014/11/1 8:55:00 [只看该作者]

以下是引用风声在2014-10-31 20:07:00的发言：

图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png

文件监视器代码 FileCreated事件

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

监控目录，AfterOpenProject事件

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

老师，找不出原因啊

[此贴子已经被作者于2014-10-31 20:07:57编辑过]

总数 13 上一页 1 2

主题：[求助]图片