求助，多个复选框使用重复数据的时候，怎么保存各自的选项 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助，多个复选框使用重复数据的时候，怎么保存各自的选项

审核人和抄送人都是使用的相同的人，现在各种选择以后，比如审核人选择孙悟空，抄送人选择沙悟净

保存的时候，审核人，和抄送人，会同时出现孙悟空和沙悟净

请教正确的写法

代码如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:3.txt

此主题相关图片如下：1712955615573.jpg

完全没有影响呀，是根据分组ID取值的，一个根据审核人取值，一个根据抄送人取值

msgbox(e.PostValues("审核人"))

msgbox(e.PostValues("抄送人"))

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

控件不能有重复的ID

教程图片，取值是通过，复选框的值进行的取值，没有通过分组进行取值。请指教

此主题相关图片如下：1713142670132.jpg

嗯看漏了，我以为都是单选框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

主题：求助，多个 复选框使用重复数据的时候，怎么保存各自的选项

主题：求助，多个复选框使用重复数据的时候，怎么保存各自的选项