With wb.AddInputGroup("formaqsb","ipg2","图片信息")
With .AddUploader("up11","",True)
.AllowAdd = False '关闭文件上传功能
For Each drs As DataRow In DataTables("灭火器检查表").Select("编号 = '" & sbid & "'","检查日期 Desc")
.AddImage("./Attachments/" & drs("指针图片"),"./Attachments/" & drs("指针图片"))
Next
End With
End With
上面的代码老是出现 已添加了具有相同键的项错误。老师帮忙看看
已解决谢谢
[此贴子已经被作者于2019/1/17 17:31:41编辑过]