Select Case e.Path
Case "addnew.htm"
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
wb.AddForm("", "form1", "addnew.htm")
With wb.AddInputGroup("form1", "ipg1", "新增订单")
.AddSelect("cp", "产品", "PD01|PD02|PD03|PD04|PD05")
.AddInput("gy", "雇员", "text")
.AddInput("kh", "客户", "text")
.AddInput("dj", "单价", "number")
.AddInput("zk", "折扣", "number")
.AddInput("sl", "数量", "number")
.AddInput("rq", "日期", "date")
End With
【希望一开始就要隐藏gy、kh,这个代码怎么写?如果一开始就要隐藏form1,这个代码又要怎么写?】
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btnok", "确定")
End With
e.WriteString(wb.Build) '生成网页
End Select