- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何做折叠的复选列表项 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120738)
-- 发布时间：2018/6/22 17:00:00
-- 如何做折叠的复选列表项
FoxTable给出的WeUI框架里，列表输入框是折叠的，点击展开。复选列表项是不可以折叠的。我需要可折叠的复选列表项，应该怎样做？
-- 发布时间：2018/6/22 17:46:00
--
在page里面加入复选框，控制page的显示隐藏
http://www.foxtable.com/mobilehelp/scr/0109.htm
-- 发布时间：2018/6/23 0:34:00
--
谢谢！实现了。但新问题有来了：怎样实现输入框“yzm”显示“page2”中选择的内容？
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddPage("","page1") \'主页面
wb.AddPage("","page2",False) \'选项页面
wb.AddForm("page1","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","基本资料")
With .AddInputCell("ic5")
.AddLabel("lyzm","多选内容",0)
.AddInput("yzm","text",1) ‘怎样在这里显示多选的内容？
.AddVcodeButton("选择","请选择",2).Attribute="""
End With
End With
wb.AddForm("page2","form2","test.htm")
With wb.AddCheckGroup("form2","rdg1","浏览器")
.Add("bw1","Intenet Explorer")
.Add("bw2","Google Chorme")
.Add("bm3","FireFox")
.Add("bm4","Safari")
End With
With wb.AddButtonGroup("page2","btg1")
.Add("btn1", "确定", "button").Attribute="""
End With
e.WriteString(wb.Build) \'生成网页
End Select
[此贴子已经被作者于2018/6/23 15:27:29编辑过]
-- 发布时间：2018/6/23 9:29:00
--
添加js文件，函数
function setValue(){
var str = "";
if(document.getElementById("bw1").checked){
str = str + \',\' + document.getElementById("bw1").getAttribute("data-v");
};
if(document.getElementById("bw2").checked){
str = str + \',\' + document.getElementById("bw2").getAttribute("data-v");
};
if(document.getElementById("bw3").checked){
str = str + \',\' + document.getElementById("bw3").getAttribute("data-v");
};
if(document.getElementById("bw4").checked){
str = str + \',\' + document.getElementById("bw4").getAttribute("data-v");
};
document.getElementById("yzm").value=str.substring(1);
}
后台代码
With wb.AddCheckGroup("form2","rdg1","浏览器")
.Add("bw1","Intenet Explorer").Attribute="onclick=\'setValue()\' data-v=\'Intenet Explorer\'"
.Add("bw2","Google Chorme").Attribute="onclick=\'setValue()\' data-v=\'Google Chorme\'"
.Add("bw3","FireFox").Attribute="onclick=\'setValue()\' data-v=\'FireFox\'"
.Add("bw4","Safari").Attribute="onclick=\'setValue()\' data-v=\'Safari\'"
End With
引入脚本文件
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
[此贴子已经被作者于2018/6/23 9:29:12编辑过]
-- 发布时间：2018/6/23 11:39:00
--
厉害了
，看来我还要好好学一下js。太感谢您了！