移动版照片根据列名称命名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动版照片根据列名称命名

共有1770人关注过本帖树形打印复制链接主题：移动版照片根据列名称命名

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

移动版照片根据列名称命名 发帖心情

Post By：2019/4/7 17:08:00 [只看该作者]

For Each key As String In e.Files.Keys

If key = "up1" Then

For Each fln As String In e.Files(key)

e.SaveFile(key, fln,ProjectPath & "Attachments\设计师美图\" & fln)

dr.Lines("照片") = e.Files(key)

End If

需求根据列

作者拍摄日期获奖级别

三列来命名上传的文件名

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/7 18:36:00 [只看该作者]

这个意思？

For Each key As String In e.Files.Keys
    If key = "up1" Then
        Dim fn = "设计师美图\" & dr("作者") & dr("拍摄日期") & dr("获奖级别") & ".jpg"
        For Each fln As String In e.Files(key)
            e.SaveFile(key, fln,ProjectPath & "Attachments\" & fn)
        Next
        dr.Lines("照片") = e.Files(key)
    End If
Next

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

主题：移动版照片根据列名称命名