手机端设置图片上传问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 手机端设置图片上传问题

共有2777人关注过本帖树形打印复制链接主题：手机端设置图片上传问题

有点蓝

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

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/24 17:12:00 [显示全部帖子]

代码是自己写的，想改为什么名称就改咯，fln就是文件名，自己改为其它值即可

  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)
                    Next
                    dr.Lines("照片") = e.Files(key)
                End If
            Next

有点蓝

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

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/26 15:56:00 [显示全部帖子]

肯定可以，不会就上传实例。

有点蓝

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

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/26 17:34:00 [显示全部帖子]

  Case "receive.htm"
        For Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)

                e.SaveFile(key,fln,"d:\web\uploadfiles\DWG” & dr(“编码1”) &  “.jpg”) '保存接收到的文件
            Next
        Next
        e.WriteString("OK")

有点蓝

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

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/27 8:49:00 [显示全部帖子]

Case "receive.htm"

dim lst as new list(of string)
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)

e.SaveFile(key,fln,"d:\web\uploadfiles\DWG” & dr(“编码1”) & “.jpg”) '保存接收到的文件

lst .add(DWG” & dr(“编码1”) & “.jpg”)

Next
Next

dr.lines("xx图片列") = lst
e.WriteString("OK")

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

主题：手机端设置图片上传问题