Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<title>产品编码列表</title>",True)
wb.AddForm("","form1","订单新增.htm").Attribute=""
With wb.AddInputGroup("form1","ipg1","新增订单")
.AddSelect("产品编码","产品","|PD01|PD02|PD03")
.AddInput("数量","数量","number")
.AddInput("单价","单价","number").Step = 0.1
.AddInput("折扣","折扣","number").Step = 0.01
With .AddUploader("up1","图片",True)
.TextPosition = 0 '标题靠左
.AddImage("./images/shuqi2.jpg")
End With
End With
e.WriteString(wb.Build)
为什么上面红色那行写法,打开网页时网页正常显示,但上方没有出现产品编码列表的标题呢?也没有提示出错