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

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

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

有点蓝

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

加好友

发短信

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

Post By：2018/1/5 23:15:00 [显示全部帖子]

看看实际的文件路径

For Each s As String In e.DataRow.Lines("piao据原件")

msgbox(path & "\" & s)

msgbox(path2 & "\" & s)

                If FileSys.FileExists(path & "\" & s) Then
                    FileSys.CopyFile(path & "\" & s, path2 & "\" & s, True)
                    If FileSys.FileExists(path2 & "\" & s) = False Then
                        msgbox("复制失败")
                    End If
                End If
            Next

有点蓝

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

加好友

发短信

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

Post By：2018/1/6 9:15:00 [显示全部帖子]

存储位置没有设置好，所以DefaultFolder是空的。检查列属性或者图片控件的设置。

如果是sqltable要重新在窗口里设置DefaultFolder

有点蓝

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

加好友

发短信

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

Post By：2018/1/6 9:53:00 [显示全部帖子]

控件的设置要和列属性的设置一致

此主题相关图片如下：1.jpg

有点蓝

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

加好友

发短信

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

Post By：2018/1/6 10:37:00 [显示全部帖子]

在窗口的AfterLoad事件，写代码，如

DataTables("应付款").DataCols("piao据原件").DefaultFolder = "H:\蓝峰管理\Attachments\采购凭证\采购付款piao据"

有点蓝

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

加好友

发短信

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

Post By：2018/1/6 10:53:00 [显示全部帖子]

放到窗口的AfterLoad事件

2个列都要设置

有点蓝

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

加好友

发短信

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

Post By：2018/1/6 11:23:00 [显示全部帖子]

是源路径有问题还是目的路径有问题？

If DataTables("应收款").DataCols("piao据原件").DefaultFolder > "" Then
                path = DataTables("应收款").DataCols("piao据原件").DefaultFolder.trim("\")
            Else
                path = ProjectPath & "Attachments"
            End If
            Dim path2 As String
            If e.DataTable.DataCols("piao据原件").DefaultFolder > "" Then
                path2 = e.DataTable.DataCols("piao据原件").DefaultFolder.trim("\")
            Else
                path2 = ProjectPath & "Attachments\"
            End If

下一主题 >> << 上一主题

主题：[求助]图片复制