- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- AddRadioGroup 点选不起 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146346)
-- 发布时间：2020/2/21 18:43:00
-- AddRadioGroup 点选不起
With wb.AddRadioGroup("form1","rdg1","请选择审核结果再提交")
.Add("bw1","信息审核通过,锁定学生修改",True)
.Add("bw2","信息填报存在不完整、不规范") \'默认勾选
.Add("bm3","学校或班填报有误,请你另报")
End With
点选不起呢
-- 发布时间：2020/2/21 18:54:00
--
True是不是应该在第三行？
-- 发布时间：2020/2/21 18:58:00
--
http://www.foxtable.com/mobilehelp/index.htm?page=0247.htm
根据这个帮助对比，看看不同点在哪里，您的代码不全，我也看不明白！
-- 发布时间：2020/2/21 19:22:00
--
true为默认勾选
-- 发布时间：2020/2/21 19:27:00
--
您的代码不全吧？能都贴出来吗？
-- 发布时间：2020/2/21 19:55:00
--
我试了只要加了默认选项true就点不动其他，但我要需要默认个选项
-- 发布时间：2020/2/21 20:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
老师我试了去掉true还是只能选第一个，第二个，第三个不能点选
-- 发布时间：2020/2/21 21:58:00
--
7楼发的是什么？没看懂。贴出页面完整代码看看
-- 发布时间：2020/2/21 22:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:test.txt |
哦发错了，现在的问题就是最的单选列表，只能选到第一个，当点第二个时、第三个时无效，点第二第三也是和一个打勾
-- 发布时间：2020/2/21 23:00:00
--
把下面几行代码去掉试试
wb.InsertHTML("<script src=\'../mui/js/yzbmyz.js\'></script>")
wb.InsertHTML("<script src=\'../mui/js/mui.min.js\'></script>")
\'wb.InsertHTML("<script src=\'../mui/css/mui.css\'></script>")
wb.InsertHTML("<script Type=\'text/javascript\' charset=\'utf-8\'>mui.init();</script>")
我新建项目这样测试没有问题
Select Case e.Path
Case "test.htm"
Dim wb As New weui
Dim xgqx As Boolean
wb.InsertHTML("<style>.fox_page_title{color:white}</style>")
wb.InsertHTML("<style>.fox_page_subtitle{color:white;}</style>")
wb.InsertHTML("<style>.fox_page_header{background-color:dodgerblue;}</style>")
wb.InsertHTML("<style>.weui_label{color:dodgerblue;}</style>")
wb.InsertHTML("<style>h5,p{margin:8px 16px;}</style>")
wb.AddPageTitle("","ph1","学生信息审核","仔细审核各项信息后确认审核结果提交")
wb.AddForm("","form1","bzrshxsxxsave.htm") \'.Attribute = ""
With wb.AddInputGroup("form1","ipg1","")
Dim In11 = .AddInput("姓名","学生姓名:","text")
In11.readonly=True
Dim In12 = .AddInput("身份证号","身份证号:","text")
In12.readonly=True
Dim In22 = .AddInput("学籍号","学籍号码:","text")
In22.readonly=True
Dim In7 = .AddInput("学校","就读学校:","text")
In7.readonly=True
Dim In8 = .AddInput("班级","就读班级:","text")
In8.readonly=True
Dim In2 = .AddInput("联系电话","联系电话:","text")
In2.readonly=True
Dim In5 = .AddInput("户口地址","户口地址:","text")
Dim In4 = .AddInput("家庭住址","家庭住址:","text")
Dim In3 = .AddInput("监护人姓名","监护姓名:","text")
In3.enabled=xgqx
Dim sel2=.AddSelect("户口性质","户口性质:","[农村]|城镇")
sel2.Enabled =xgqx
Dim sel4= .AddSelect("就读方式","就读方式:","[住校]|走校")
.AddSelect("就餐情况","就餐情况:","[不在校就餐]|早餐|午餐|晚餐|早午餐|早晚餐|午晚餐|早午晚餐").enabled=xgqx
.AddSelect("留守情况","留守情况:","非留守|[单亲留守]|双亲留守").enabled=xgqx
Dim sel6= .AddSelect("贫困建档","贫困建档:","[是]|否")
Dim In21 = .AddInput("邮政编码","邮政编码:","text")
In21.readonly=xgqx
End With
With wb.AddInputGroup("form1","ipg2","以下为选填内容")
Dim In23 = .AddInput("父亲姓名","父亲姓名:","text")
In23.readonly=xgqx
Dim In24 = .AddInput("母亲姓名","母亲姓名:","text")
In24.readonly=xgqx
End With
With wb.AddRadioGroup("form1","审核结论","请选择审核结果再提交")
.Add("bw1","信息审核通过,锁定学生修改",True)
.Add("bw2","信息填报存在不完整?不规范") \'默认勾选
.Add("bm3","学校或班填报有误,请你另报")
End With
With wb.AddButtonGroup("form1","btg1",False)
Dim btn1=.Add("btn1", "审核提交", "sumbit")
btn1.kind=1
\' btn1.Attribute= "style=\'width:150px;border-radius:20px;border:1px solid silver\'"
End With
e.WriteString(wb.Build) \'生成网页
End Select