Case "LuDanFilterForEmp.htm" '路单-员工筛选列表页面
Dim wb As new weui
wb.Title="路单筛选"
'按姓名查询时用,针对员工可用============================
wb.InsertHTML("<p style='font-size:12px;color:red'>★注意:①时间段或月份必须选一项.<br>    ②如按时间段筛选,则不用填写下面的月份,反之如按月筛选,则不用填写时间段.</p>")
wb.InsertHTML("<hr/>")
wb.AddForm("","form1","LuDanListForEmp.htm")
With wb.AddRadioGroup("form1","selettype","筛选条件")
.Add("onlyme","仅我的")
.Add("aboutme","与我相关的")
End With
With wb.AddRadioGroup("form1","formonth","按月份查询")
.Add("thismth","本月").Attribute = """
.Add("prevmth","上月").Attribute = """
End With
With wb.AddInputGroup("form1","fordate","按时段查询")
'AddSelect("username","姓名","|向长洲|" & String.Join("|",md.ToArray))
.AddInput("startdate","从","date").Attribute = """
.AddInput("enddate","到","date").Attribute = """
End With
With wb.AddButtonGroup("form1","btg1", False)
.Add("btn1","筛选","submit")
.Add("btn2","退出","button","index.htm")
End With
wb.AppendHTML("<script src='./lib/anqy1.js'></script>") '引入脚本文件
e.WriteString(wb.Build)