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

这个意思？

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