单选列表项 Radio 如何传值到foxtable服务端 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

蓝老师！可能你还没理解我的意思，直接上帮助代码比较好说

除了红色字代码，其他的都跟帮助文件里的例题一样

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", "test.htm")

Dim rdg As ExWeUI.ExRadioGroup = ExWeUI.WebUI.AddRadioGroup("", "rdg1", "横排,自动换行显示<span style='float:right;color:red' id='v1'></span>")

rdg.add("rd1", "Microsoft Edge").Attribute = """

rdg.add("rd2", "Google Chorme").Attribute = """

rdg.add("rd3", "FireFox").Attribute = """

rdg.add("rd4", "QQ浏览器").Attribute = """

rdg.add("rd5", "傲游浏览器").Attribute = """

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

rdg = ExWeUI.WebUI.AddRadioGroup("", "rdg5", "自定义返回值<span style='float:right;color:red' id='v2'>01</span>")

Dim rdgItem = rdg.add("rd51", "Microsoft Edge", True)

rdgItem.value = "01"

rdgItem.Attribute = """

rdgItem = rdg.add("rd52", "Google Chorme")

rdgItem.value = "02"

rdgItem.Attribute = """

rdgItem = rdg.add("rd53", "FireFox")

rdgItem.value = "03"

rdgItem.Attribute = """

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

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

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

End With

' If e.Values("rd53") <> Nothing Then

MessageBox.Show(e.Values("rd53"))

' End If

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

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

End Select

我想要的效果是手机端，单选框，选中后，按确认键，单选框选中的状态“false”“true”,或是键值，能传到Foxtable服务端。

我这样写，显示的总是空字符。

主题：单选列表项 Radio 如何传值到foxtable服务端