共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求助，多个 复选框使用重复数据的时候，怎么保存各自的选项
1楼
夜点蚊香 发表于：2024/4/13 5:24:00求助，多个 复选框使用重复数据的时候，怎么保存各自的选项
审核人和抄送人都是使用的相同的人，现在各种选择以后，比如 审核人选择孙悟空，抄送人选择沙悟净
保存的时候，审核人，和抄送人，会同时出现孙悟空和沙悟净
请教正确的写法
代码如下
2楼
有点蓝 发表于：2024/4/13 8:36:00完全没有影响呀，是根据分组ID取值的，一个根据审核人取值，一个根据抄送人取值
msgbox(e.PostValues("抄送人"))
msgbox(e.PostValues("审核人"))
3楼
夜点蚊香 发表于：2024/4/15 7:46:00Dim 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
4楼
有点蓝 发表于：2024/4/15 8:48:00控件不能有重复的ID
5楼
夜点蚊香 发表于：2024/4/15 9:00:00教程图片，取值是通过，复选框的值进行的取值，没有通过分组进行取值。请指教
此主题相关图片如下：1713142670132.jpg
此主题相关图片如下：1713142670132.jpg6楼
有点蓝 发表于：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
7楼
夜点蚊香 发表于：2024/4/15 9:56:00收到
共7 条记录, 每页显示 10 条, 页签:
[1]