以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手机端多张拍照问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139276)
--  作者：benwong2013
--  发布时间：2019/8/9 14:52:00
--  手机端多张拍照问题
根据教程修改后的代码，希望可以一次性添加多个照片并且在上传的时候能根据每张照片自动添加行来保存；但这个代码设置的是可以上传多个照片，在实际的时候只能拍一张，继续拍的话只是覆盖之前；请问如何处理？

    Case "fdphoto.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","fdphoto.htm")
            With wb.AddInputGroup("form1","ipg1","上传照片")
                .AddInput("报告编号","报告编号:","Text") \'前一个"姓名"是ID,后一个"姓名"是标题
                .AddUploader("up1","照片:",True) \'True表示允许上传多个文件
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            e.WriteString(wb.Build)
        Else
            For Each key As String In e.Files.Keys
                If key = "up1" Then
                    For Each fln As String In e.Files(key)
                        Dim dr As DataRow = DataTables("Samplephoto").AddNew()
                        dr("报告编号") = e.PostValues("报告编号")
                        e.SaveFile(key, fln, ProjectPath & "Attachments\\" & fln)
                        dr.Lines("照片") = e.Files(key)
                        dr.save()
                    Next
                    
                End If
            Next
            \'保存并生成增加成功提示页面
            
            With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页
                .AddButton("btn1","继续增加","addnew.htm")
            End With
            e.WriteString(wb.Build)
        End If
        
--  作者：有点蓝
--  发布时间：2019/8/9 14:56:00
--  
只能拍一张，重新点击+，再拍一张。如果要同时添加多张，先拍照，再从相册里选