Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim Page As Integer
If e.GetValues.ContainsKey("page") Then
Integer.TryParse(e.GetValues("page"), page)
End If
wb.AddForm("","form1","list.htm?page=0")
With wb.AddInputGroup("form1","ipg0","快速数据筛选")
With .AddInput("合同号1","合同号1","text")
.Attribute = """
End With
'.AddInput("客户","客户","text")
With .AddInput("款号1","款号1","text")
.Attribute = """
End With
'.AddInput("开始日期","开始日期","date")
' .AddInput("结束日期","结束日期","date")
End With
With wb.AddInputGroup("form1","ipg1","只填 合同号 或 款号")
With .AddSelect("合同号","合同号","")
.Attribute = ""
End With
With .AddSelect("款号","款号","")
.Attribute = ""
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "筛选", "submit")
.Add("btn1", "返回", "button","list.htm?page=" & Page) '返回原页面
End With
wb.AppendHTML("<script src='./lib/order.js'></script>")
e.WriteString(wb.Build())
加好友 
发短信
Post By：2020/12/18 14:23:00 [只看该作者]
此主题相关图片如下：1.png
