1、检查路径是否正确2、贴出完整代码
下面代码我测试i没有问题
Select Case e.Path
Case "test.htm"
Dim wb As New weui
With wb.AddPreview("","pv1","付款金额","¥2400")
.AddItem("项目1","内容1")
.AddItem("项目2","内容2")
.AddItem("项目3", "电动打蛋机")
.Addbutton("操作", "", 1, "")
End With
With wb.AddInputGroup("","ipg1","客户资料")
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
.AddImage("./images/001.jpg")
End With
End With
wb.AppendHTML("<br/>")
With wb.AddPreview("","pv2","付款金额","¥3400")
.AddItem("项目1","内容1")
.AddItem("项目2","内容2")
.AddItem("项目3", "电动打蛋机")
.Addbutton("辅助操作", "http://www.foxtable.com", 0)
.Addbutton("操作", "", 1, "")
End With
e.WriteString(wb.Build) '生成网页
End Select