- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，多个 复选框使用重复数据的时候，怎么保存各自的选项 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191372)
-- 发布时间：2024/4/13 5:24:00
-- 求助，多个 复选框使用重复数据的时候，怎么保存各自的选项
求助，多个 复选框使用重复数据的时候，怎么保存各自的选项
审核人和抄送人都是使用的相同的人，现在各种选择以后，比如 审核人选择孙悟空，抄送人选择沙悟净
保存的时候，审核人，和抄送人，会同时出现孙悟空和沙悟净
请教正确的写法
代码如下
-- 发布时间：2024/4/13 8:36:00
--
完全没有影响呀，是根据分组ID取值的，一个根据审核人取值，一个根据抄送人取值
msgbox(e.PostValues("审核人"))
-- 发布时间：2024/4/15 7:46:00
-- 重新发一下代发，调试界面显示控制，请指教。
Dim wb As New weui
Select Case e.Path
Case "addnew.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","addnew.htm")
wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True)
Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("","chg1","横排,自动换行显示")
cdg = ExWeUI.WebUI.AddCheckGroup("","审核人","支持3种尺寸1")
cdg.add("rd41","Microsoft Edge",True).size = "s" \'不设置默认为中等大小
cdg.add("rd42","Google Chorme").size = "m"
cdg.add("rd43","FireFox1").size = "l"
wb.InsertHTML("form1",cdg.BuildHtml)
cdg = ExWeUI.WebUI.AddCheckGroup("","抄送人","支持3种尺寸")
cdg.add("rd41","Microsoft Edge",True).size = "s" \'不设置默认为中等大小
cdg.add("rd42","Google Chorme").size = "m"
cdg.add("rd43","FireFox").size = "l"
wb.InsertHTML("form1",cdg.BuildHtml)
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>") \'需要注意的是,这里不需要使用true参数
e.WriteString(wb.Build) \'生成网页
e.WriteString(wb.Build)
Else
msgbox(e.PostValues("审核人"))
msgbox(e.PostValues("抄送人"))
End If
End Select
-- 发布时间：2024/4/15 8:48:00
--
控件不能有重复的ID
-- 发布时间：2024/4/15 9:00:00
--
教程图片，取值是通过，复选框的值进行的取值，没有通过分组进行取值。请指教
此主题相关图片如下：1713142670132.jpg
-- 发布时间：2024/4/15 9:13:00
--
嗯看漏了，我以为都是单选框AddRadioGroup。AddRadioGroup只需要按分组取值即可。
AddCheckGroup确实是按选项取值，但是按1楼给的代码，也不会有冲突的。
如果使用了2个AddCheckGroup，那么可以把ID区分开，比如
With wb.AddCheckGroup("form1",密收人","审核后抄送")
.Add("密收人_孙悟空","孙悟空")
.Add("密收人_猪八戒","猪八戒")
.Add("密收人_沙悟净","沙悟净")
End With
With wb.AddCheckGroup("form1","抄送人","审核后抄送")
.Add("抄收人_孙悟空","孙悟空")
.Add("抄收人_猪八戒","猪八戒")
.Add("抄收人_沙悟净","沙悟净")
End With
-- 发布时间：2024/4/15 9:56:00
--
收到