- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 单选列表的编辑怎么写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187953)
-- 发布时间：2023/8/23 9:18:00
-- 单选列表的编辑怎么写
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer")
.Add("bw2","Google Chorme")
.Add("bm3","FireFox")
.Add("bm4","Safari")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
如上帮助中的实例，现在处于编辑阶段，怎样提取上一次已经勾选的选项，并自动勾选？
-- 发布时间：2023/8/23 9:24:00
--
比如
dim dr as datarow = datatables("xxx").find(某某条件)
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer",dr("浏览器") = "Intenet Explorer")
.Add("bw1","Intenet Explorer",dr("浏览器") = "Intenet Explorer")
.Add("bw2","Google Chorme",dr("浏览器") = "Google Chorme")
.Add("bm3","FireFox",dr("浏览器") = "FireFox")
.Add("bm4","Safari",dr("浏览器") = "Safari")
End With
-- 发布时间：2023/8/23 9:37:00
--
此主题相关图片如下：qq截图20230823093649.png
-- 发布时间：2023/8/23 9:59:00
--
2楼代码测试有什么问题？
-- 发布时间：2023/8/23 13:07:00
--
2楼代码传值是传的ID值，没有传具体的值，比如"Intenet Explorer"
-- 发布时间：2023/8/23 13:23:00
--
已搞定， With wb.AddRadioGroup("form5", "防护等级", "防护等级")
.Add("低级防护", "低级防护", dr("防护等级") = "低级防护").value = "低级防护"
.Add("中级防护", "中级防护", dr("防护等级") = "中级防护").Value = "中级防护"
.Add("高级防护", "高级防护", dr("防护等级") = "高级防护").Value = "高级防护"
End With