通过拍照上传，点确定，收不到数据及照片
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
加好友 
发短信
Post By：2023/5/8 9:04:00 [显示全部帖子]
