Dim wb As New WeUI
Select Case e.Path
Case "filter.htm"
wb.AddForm("","form1","list.htm")
With wb.AddInputGroup("form1","ipg1","数据筛选")
.Addinput("product","姓名或手机","text")
.AddInput("startdate","开始日期","date").Value = Format(Date.Today,"yyyy-MM-dd")
.AddInput("enddate","结束日期","date").Value = Format(Date.Today.AddDays(1),"yyyy-MM-dd")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
' Dim wb1 As New weui
' wb1.AddForm("","form1","test.htm")
With wb.AddButtonGroup("form1","btg11",True) '垂直排列
.Add("btn1", "昨天")
With .Add("btn13", "今天", "button") ' 点击后填入上面的日期输入框
？？？？代码
End With
.Add("btn5", "明天", "", "http://www.foxtable.com") '单击这个按钮可以打开foxtable主页
End With
With wb.AddButtonGroup("form1","btg2", False) '水平排列
.Add("btn6", "前一天")
.Add("btn7", "后一天").Kind = 2
End With
With wb.AddButtonGroup("form1","btg3", False)
.Add("btn8", "按钮").Kind = 0
.Add("btn9", "按钮").Kind = 1
End With
' e.WriteString(wb1.Build) '生成网页
加好友 
发短信
Post By：2017/9/8 13:55:00 [只看该作者]
此主题相关图片如下：微信图片_20170908135416.jpg