主题：Dim rdg1 As ExWeUI.ExRadioGroup 后rdg1.add("rd11","申请奖励") 被选中的值如何写进数据库里呢？

dim a as boolean = e.PostValues.ContainsKey("rd1")

Select Case e.Path

    Case "test.htm"

        Dim wb As New weui

        wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True) '需要注意的是,这里必需要使用true参数,假设文件放在weui目录中

        wb.AppendHTML( "<script src='./weui/exweui.js' ></script>" , True ) '需要注意的是,这里必需要使用true参数

        wb.AddForm("","form1","accept.htm")

        Dim rdg As ExWeUI.ExRadioGroup

        

        rdg  = ExWeUI.WebUI.AddRadioGroup("","rdg3","支持4种默认颜色")

        rdg.add("rd31","Microsoft Edge") '不设置默认为绿色

        rdg.add("rd32","Google Chorme",True).color = 1

        rdg.add("rd33","FireFox").color = 2

        rdg.add("rd34","QQ浏览器").color = 3

        Dim rd21 = rdg.add("rd35","傲游浏览器")

        rd21.color = 3

        rd21.enabled = False

        wb.InsertHTML("form1",rdg.BuildHtml)

        

        With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "确定", "submit")

        End With

        wb.AppendHTML("<script>initExWeUI();</script>") '需要注意的是,这里不需要使用true参数

        e.WriteString(wb.Build) '生成网页

    Case "accept.htm"

        Dim sb As New StringBuilder

        sb.AppendLine("接收到的数据有:<br/><br/>")

        For Each key As String In e.Values.Keys

            sb.AppendLine(key & ":" & e.Values(key) & "<br/>")

        Next

        e.WriteString(sb.ToString)

End Select