Select Case e.Path
Case "e.htm"
wb.AddForm("","form1","f.htm")
Dim gjs As List(of String) = DataTables("WIFI查询资料").GetValues("部门")
With wb.AddInputGroup("form1","ipg1","数据筛选")
.AddSelect("部门","部门","|" & String.Join("|",gjs.ToArray))
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "查询", "submit")
End With
End Select
e.WriteString(wb.Build)