主题：单选项如何判断？

 Case "LuDanFilterForEmp.htm"  '路单-员工筛选列表页面

        Dim wb As new weui

        wb.Title="路单筛选"

        '按姓名查询时用,针对员工可用============================

        wb.InsertHTML("<p style='font-size:12px;color:red'>★注意:①时间段或月份必须选一项.<br>&nbsp;&emsp;&emsp;&emsp;②如按时间段筛选,则不用填写下面的月份,反之如按月筛选,则不用填写时间段.</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)