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

老师，下面代码不能正常复制图片，有时候可以的有时候就复制不了。

If e.DataCol.Name = "piao据号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("piao据原件") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("应收款").Find("[piao据号码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("piao据原件") = dr("piao据原件")
            Dim path As String
            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
            For Each s As String In e.DataRow.Lines("piao据原件")
                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

End If
End If
End If

列属性想用代码来设置包括单元格小按钮。下面就是"piao据原件"列的属性。

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

[此贴子已经被作者于2018/1/5 22:59:08编辑过]

看看实际的文件路径

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

以下是引用有点蓝在2018/1/5 23:15:00的发言：

看看实际的文件路径

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

msgbox(path & "\" & s)

msgbox(path2 & "\" & s)

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

老师，两个被复制的路径不同。

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

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

Dim fm As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

fm.ManagerCommand.Visible = False

fm.SaveAsCommand.Visible = False

fm.FullViewCommand.Visible = False '全屏

fm.StretchCommand.Visible = False '缩放

e.Form.Controls("PictureViewer1").BackColor = Color.DarkGray

Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)

obj.SplitterDistance = 250

For Each o As object In obj.panel2.controls("FlowLayoutPanel2").Controls

o.Font = new Font("微软雅体", 18)

老师，下面是被复制图片的存储路径

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

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

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

老师，这样可以了，我想用代码来设置。又要烦老师了。

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

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

以下是引用有点蓝在2018/1/6 10:37:00的发言：

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

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

老师，上面代码已经设置了没用

放到窗口的AfterLoad事件

2个列都要设置

主题：[求助]图片复制