Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在FTP上传文件时自动根据列名进行修改文件名


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

主题：在FTP上传文件时自动根据列名进行修改文件名
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		在FTP上传文件时自动根据列名进行修改文件名  发帖心情 Post By：2018/4/12 14:24:00 [只看该作者]

老师：为什么下面这段代码修改不了？

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "图像上传" '插入文件
        Dim path As String = "/JLZL2018/"
        If e.DataCol.FTPClient.DirExists(path) = False Then
            e.DataCol.FTPClient.MakeDir(path)
        End If
        path = "/JLZL2018/" & dr("项目编号") & dr("工程名称") & "/" & dr("单位工程") & "/" & dr("分部分项")
        If e.DataCol.FTPClient.DirExists(path) = False Then
            e.DataCol.FTPClient.MakeDir(path)
        End If
        e.DataCol.FTPClient.ChangeDir(path)
        If Forms("现场图像").Opened Then
            Dim fm As WinForm.FileManager = Forms("现场图像").Controls("FileManager1") '改为自己建的窗口名称和控件名称
            fm.FTPclient.ChangeDir(path)
        End If

            e.SubFolder = path   '指定存放文件的子目录
            
            If dr.IsNull("部位") = False AndAlso dr.IsNull("单位类别") = False Then
                e.FileName = GetPy(dr("单位类别").SubString(0,2),True) & "-" & dr("部位")  '修改文件名
            Else
                MessageBox.Show("部位及单位类别不能为空!")
                e.Cancel = True
            End If
            
            Dim cnt As Integer = 1
            If FileSys.DirectoryExists(path)  Then
                For Each file As String In FileSys.GetFiles(path)
                    If file Like "*" & e.FileName.SubString(0,2) & "*" Then
                        cnt += 1
                    End If
                Next
            End If
            e.FileName &= "-" & Format(cnt, "00") & ".jpg"

End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/12 14:56:00 [只看该作者]


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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/12 14:59:00 [只看该作者]

如果要在添加的时候限制，上传功能必须自己做

 

http://www.foxtable.com/webhelp/scr/2638.htm

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


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/12 15:54:00 [只看该作者]

有点甜老师：
看了一遍，还是搞不懂，有没有相关示例？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/12 16:26:00 [只看该作者]

以下是引用ZJZK2018在2018/4/12 15:54:00的发言：
有点甜老师：
看了一遍，还是搞不懂，有没有相关示例？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=115946&skin=0

 

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


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/12 16:49:00 [只看该作者]

有点甜老师：

我的需求：1、利用FOXTABLE文件管理.。2、在FTP上传文件时，自动根据列名当前行的内宅进行修改文件名
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/12 17:16:00 [只看该作者]

不能使用foxtable自带的ftp上传工具，必须自己做一个，在beforeaddfile事件写代码，如5楼。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询