代码没有问题，或者试试
Dim dr As DataRow = DataTables("表1").DataRows(0)
Dim Multi As List(of String) = dr.Lines("单据图片")
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","text").value = "舒淇"
.AddInput("地点","地点","text").Value = "蒙古草原"
.AddInput("日期","日期","date").value = #10/12/2012#
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
For Each file As String In Multi
msgbox(file)
.AddImage("./images/" & file )
Next
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2019/6/13 8:41:00 [显示全部帖子]
