Select Case e.Path
Case "filter.htm"
wb.AddForm("","form1","list.htm")
With wb.AddInputGroup("form1","ipg1","现金银行余额")
.AddInput("startdate","开始日期","date")
.AddInput("enddate","结束时间","date")
End With