根据教程修改后的代码，希望可以一次性添加多个照片并且在上传的时候能根据每张照片自动添加行来保存；但这个代码设置的是可以上传多个照片，在实际的时候只能拍一张，继续拍的话只是覆盖之前；请问如何处理？
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
加好友 
发短信
Post By：2019/8/9 14:52:00 [只看该作者]
