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


  共有3235人关注过本帖树形打印复制链接

主题：[求助]引用
帅哥哟，离线，有人找我吗？
江南小城
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		[求助]引用  发帖心情 Post By：2016/8/3 17:43:00 [显示全部帖子]

老师好

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:引用.table


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/3 18:09:00 [显示全部帖子]

老师谢谢你！

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/3 19:54:00 [显示全部帖子]

老师，图片列通过代码从表B引用到表A后怎样改变存放路径（I:\piao据管理\应付款\Attachments\piao据分类\汇piao"）

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:引用.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/3 20:42:00 [显示全部帖子]

老师，我两个表的图片列的存放位置不同

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/3 20:59:00 [显示全部帖子]

老师，我是要复制图片文件到另一个文件夹中

If e.DataCol.Name = "特别号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("图片") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("表B").Find("[特别号码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("图片") = dr("图片")
            
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/4 6:35:00 [显示全部帖子]

以下是引用江南小城在2016/8/3 19:54:00的发言：
老师，图片列通过代码从表B引用到表A后怎样改变存放路径（I:\piao据管理\应付款\Attachments\piao据分类\汇piao"）

 下载信息  [文件大小：296.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:引用.table
老师谢谢，帮我设置一下，我设置不好。


 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/4 16:11:00 [显示全部帖子]


老师，我还是不太懂
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:引用复制.rar
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/4 20:14:00 [显示全部帖子]


老师好，还是没有复制文件。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:引用复制.rar
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/5 12:45:00 [显示全部帖子]


老师，我要把表A图片列的文件摆在一个指定的文件夹中。


If e.DataCol.Name = "特别号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("图片") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("表B").Find("[特别号码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("图片") = dr("图片")
            Dim path As String
            If DataTables("表B").DataCols("图片").DefaultFolder  > "" Then
                path = DataTables("表B").DataCols("图片").DefaultFolder
            Else
                ' path = ProjectPath & "Attachments\"
                path = ProjectPath & "I:\狐表\引用\引用复制\引用复制\Attachments\承兑汇piao"
            End If
            Dim path2 As String
            If e.DataTable.DataCols("图片").DefaultFolder > "" Then
                path2 = e.DataTable.DataCols("图片").DefaultFolder
            Else
                ' path2 = ProjectPath & "Attachments\"
                path2 = ProjectPath & "I:\狐表\引用\引用复制\引用复制\Attachments\原件"

            End If
            For Each s As String In e.DataRow.Lines("图片")
                If FileSys.FileExists(path & "\" & s) Then
                    FileSys.CopyFile(path & "\" & s, path2 & "\" & dr("图片"), True)
                End If
            Next
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/10 8:40:00 [显示全部帖子]

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
            Else
                 path = ProjectPath & "Attachments\"
                            End If
            Dim path2 As String
            If e.DataTable.DataCols("piao据原件").DefaultFolder > "" Then
                path2 = e.DataTable.DataCols("piao据原件").DefaultFolder
            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 & "\" & dr("piao据原件"), True)
                End If
            Next
        End If
    End If
End If


老师好，当我在piao据号码列输入数据后piao据原件列总是复制上一行的数据，现在要通过按钮清除后才能通过按钮增加图片文件。
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 9 次数据查询