甜老师,奇怪了,两者都不行。。。
Dim wb As New weui
wb.AddTopTips("","toptip1","请选择经办人信息!")
wb.AddPageTitle("","pageheader","微信充值卡","公司")
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg2","经办人信息")
.AddInput("dp","经办店铺","text").Placeholder = "请选择经办店铺"
.AddInput("xm","经办人","text").Placeholder = "请选择经办人姓名"
.AddHiddenValue("订单编号","0010")
End With
With wb.AddInputGroup("form1","ipg3","充值金额")
End With
With wb.AddGrid("","g1")
'For Each dr As DataRow In DataTables("JSAPI").sqlselect("")
'.Add(dr("product_id"),dr("商品名称"),"./images/button.png") '.Attribute = " & dr("product_id") & "')"" "
'Next
上面那段已经注释了。
下面这个也是图片没显示:
.Add("c01","扫码支付", "./images/button.png", "nativepay/index.htm")
.Add("c02","公众号支付", "./images/button.png", "jsapipay/index.htm")
.Add("c03","公众号支付测试用例", "./images/button.png", "jsapipay/test.htm")
End With
wb.AppendHTML("<script src='../lib/pay.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页