测试没问题
Select Case e.Path
Case "test.htm", ""
Dim wb As New weui
wb.AddForm("","form1","123.htm?test=123abc") '指定接收表单数据的的页面为handle.htm
With wb.AddInputGroup("form1","ipg1","新增订单")
.AddInput("客户","客户","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "onclick=""submitAjaxForm('form1','',false);"""
End With
e.WriteString(wb.Build)
Case "123.htm"
msgbox(e.values("客户"))
msgbox(e.values("test"))
End Select
[此贴子已经被作者于2018/9/17 11:18:09编辑过]