以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]上传照片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186506)

--  作者：bzqlyj --  发布时间：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)                     Next                                         drp.Lines("grp") = e.Files(key)                                                         End If             Next

--  作者：有点蓝 --  发布时间：2023/5/8 9:17:00 --   上传的文件不是通过PostValues获取的。后面的for循环的代码才是获取文件的代码。MessageBox.Show(key)可以弹出说明有接收到上传的文件

--  作者：bzqlyj --  发布时间：2023/5/8 9:25:00 --  回复：（有点蓝）上传的文件不是通过PostValues获取的... 是将文件名写入对应的行里，但收不到文件，如何处理

--  作者：有点蓝 --  发布时间：2023/5/8 9:30:00 --   贴出完整代码看看。http://www.foxtable.com/mobilehelp/topics/0060.htm

--  作者：bzqlyj --  发布时间：2023/5/8 9:42:00 --  回复：（有点蓝）贴出完整代码看看。http://www.foxta... 与登录有关系没有 Add("c3","销售统计", "./images/toast.png", "http://www.foxtable.com")

--  作者：有点蓝 --  发布时间：2023/5/8 9:48:00 --   不清楚，请帖出完整代码看看

--  作者：bzqlyj --  发布时间：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)                     Next                                         drp.Lines("grp") = e.Files(key)                                                         End If             Next 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 通过这个可以收到文件

--  作者：有点蓝 --  发布时间：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)                     Next                                                           End If             Next drp.Lines("grp") = lst