[求助]上传照片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]上传照片

共有4120人关注过本帖树形打印复制链接主题：[求助]上传照片

bzqlyj

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

加好友

发短信

等级：童狐帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00

[求助]上传照片 发帖心情

Post By：2023/5/8 9:04:00 [只看该作者]

通过拍照上传，点确定，收不到数据及照片

With .AddUploader("grp", "照片", True)

If drp("grp") = "" Then

.Accept = "image/*"

.AllowDelete = True '允许删除

.Incremental = False '允许重复选择文件或连续拍照

.Capture = "camera" '只能拍照上传

With wb.AddButtonGroup("form1", "btg2", True)

.Add("btn2", "确定", "submit")

End With

Else

.AllowAdd = False '关闭文件上传

Dim zp As String

zp = "./Attachments/" & drp("grp")

.AddImage(zp, zp)

End If

End With

drp("grp") = e.PostValues("grp")

MessageBox.Show(drp("grp"))，这里没有值

For Each key As String In e.Files.Keys

MessageBox.Show(key)

If key = "grp" Then

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

MessageBox.Show(3)

e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)

drp.Lines("grp") = e.Files(key)

End If

有点蓝

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

加好友

发短信

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

Post By：2023/5/8 9:17:00 [只看该作者]

上传的文件不是通过PostValues获取的。后面的for循环的代码才是获取文件的代码。MessageBox.Show(key)可以弹出说明有接收到上传的文件

bzqlyj

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

加好友

发短信

等级：童狐帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00

回复：（有点蓝）上传的文件不是通过PostValues获取的... 发帖心情

Post By：2023/5/8 9:25:00 [只看该作者]

是将文件名写入对应的行里，但收不到文件，如何处理

有点蓝

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

加好友

发短信

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

Post By：2023/5/8 9:30:00 [只看该作者]

贴出完整代码看看。http://www.foxtable.com/mobilehelp/topics/0060.htm

bzqlyj

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

加好友

发短信

等级：童狐帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00

回复：（有点蓝）贴出完整代码看看。http://www.foxta... 发帖心情

Post By：2023/5/8 9:42:00 [只看该作者]

与登录有关系没有

Add("c3","销售统计", "./images/toast.png", "http://www.foxtable.com")

有点蓝

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

加好友

发短信

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

Post By：2023/5/8 9:48:00 [只看该作者]

不清楚，请帖出完整代码看看

bzqlyj

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

加好友

发短信

等级：童狐帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00

回复：（有点蓝）不清楚，请帖出完整代码看看 发帖心情

Post By：2023/5/8 16:47:00 [只看该作者]

For Each key As String In e.Files.Keys

MessageBox.Show(key)

If key = "grp" Then

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

MessageBox.Show(3)

e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)

drp.Lines("grp") = e.Files(key)

End If

Case "upload.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("服务器收到的文件有:")
        For Each key As String In e.Files.Keys
            sb.AppendLine(Key)
            For Each fl As String In e.Files(key)
                sb.AppendLine("    " & fl)
                e.SaveFile(key,fl,"d:\web\uploadfiles\" & fl) '保存接收到的文件
            Next
        Next
        e.WriteString(sb.ToString)
End Select

通过这个可以收到文件

有点蓝

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

加好友

发短信

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

Post By：2023/5/8 17:02:00 [只看该作者]

dim lst as new list(of string)

For Each key As String In e.Files.Keys

MessageBox.Show(key)

If key = "grp" Then

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

MessageBox.Show(3)

e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)

lst.add(fln)

End If

drp.Lines("grp") = lst

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

主题：[求助]上传照片