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
加好友 
发短信
F6
Post By：2022/5/12 18:47:00 [只看该作者]
