1、使用AddUploader上传照片，要求[照片1]必须有，代码如下：
With wb.AddInputGroup("form1", "ipg1", "照片1【必填-1张】")
With .AddUploader("up1", "", True)
.Accept = "image/*" '允许使用相册和相机
.AllowDelete = True '允许删除
End With
End With
With wb.AddInputGroup("form1", "ipg2", "照片2(选填-1张)")
With .AddUploader("up2", "", True)
.Accept = "image/*" '允许使用相册和相机
.AllowDelete = True '允许删除
End With
End With
2、第1次提交时，[照片1]没有照片，[照片2]上传照片。
因为[照片1]没有照片，会报错(报错代码如下)，然后操作者回退。
回退后，[照片1]、[照片2]都是空的，
第2次提交，[照片1]上传照片，[照片2]空，则会提交[照片1]的照片，以及[照片2]第1次提交时的照片。
希望，如果第2次提交时，[照片2]没有上传照片，就不要保存上次的照片。
If e.Files.ContainsKey("up1") = False Then
With wb.AddMsgPage("", "msgpage", "操作失败", "【照片1】 不能为空!")
.Icon = "warn"
.AddButton("btn2", "返回", "***.htm")
End With
e.WriteString(wb.Build) '生成网页
Return ""
End If
[此贴子已经被作者于2023/3/20 15:48:12编辑过]
加好友 
发短信
Post By：2023/3/20 15:47:00 [显示全部帖子]
