- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- WEUI筛选问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160614)
-- 发布时间：2021/2/8 16:25:00
-- WEUI筛选问题
请教老师，下面代码，为什么用按钮（submit)能达到按XMMC关键字能筛选出目标行，
换成用AddListGroup就不行？？
Dim wb As New weui
Select Case e.Path
\'------------20210208
Case "zbkcx.htm"
wb.AddForm("","form3","gcgkcx.htm")
With wb.AddInputGroup("form3","zbkipg","项目名称关键字筛选")
.AddInput("xmmc","项目名称","text").Placeholder = "请输入项目关键字"
wb.AppendCookie("xmmc", e.PostValues("xmmc")) \'将值写入cookie中
End With
\'----------list 20210208
With wb.AddListGroup("", "list0","<label style=\'color:#00CD00\'> 1. 工程概况")
.Add("ls0", "项目工程概况","查询","gcgkcx.htm") \'xmmc无法传递到gcgkcx.htm页面
End With
With wb.AddButtonGroup("form3","zbkbtg",False)
.Add("zbkbtn1", "返回", "","home.htm")
.Add("zbkbtn2", "确定","sumbit") \'操动这里能正确筛选出目标行
End With
\'--------项目工程概况·查询
Case "","gcgkcx.htm"
wb.AddForm("zbkcx.htm","form3","gcgkcx.htm")
If e.PostValues("xmmc") = "" Then
\'If e.PostValues.Count = 0 Then
With wb.AddMsgPage("","msgpage","异常操作","未输入项目名称关键字")
.icon = "Warn" \'改变图标
.AddButton("cxsxbtn","重新筛选","zbkcx.htm").kind = 2
End With
Else
Dim flt As String
If e.PostValues.ContainsKey("xmmc") Then
flt = flt & "项目名称 like \'%" & e.PostValues("xmmc") & "%\'" \'模糊查询
End If
Dim cmd As new SQLCommand
省略......
End If
End Select
e.WriteString(wb.Build)
-- 发布时间：2021/2/8 16:39:00
--
只有按钮才能触发表单的提交行为。list只能进行简单的跳转
可以借助js函数
.Add("ls0", "项目工程概况","查询","<a onclick=\'setCodes();\'>gcgkcx.htm</a>") \'xmmc无法传递到gcgkcx.htm页面
function setCodes(){
var form = document.getElementById(\'form3\');
var form = document.getElementById(\'form3\');
form.submit();}[此贴子已经被作者于2021/2/8 16:39:22编辑过]
-- 发布时间：2021/2/9 15:41:00
--
老师，还请再看看，您昨天指导的代码，
function setCodes(){
var form = document.getElementById(\'form3\');
var form = document.getElementById(\'form3\');
form.submit();}我在web/lib生成了一个.js文件
但是 \'.Add("ls0", "项目工程概况","查询","<> gcgkcx.htm") 生成的网页，这一栏有错误
此主题相关图片如下：图1.jpg
点击后，IP地址不对
此主题相关图片如下：图2.jpg
-- 发布时间：2021/2/9 15:45:00
--
.Add("ls0", "项目工程概况","查询","<a onclick=\'setCodes();\'>gcgkcx.htm</a>")
-- 发布时间：2021/2/9 15:51:00
--
老师，上述代码我也试了，也不行，IP地址不对，打不开
此主题相关图片如下：图3.jpg
-- 发布时间：2021/2/9 15:55:00
--
贴出完整代码，或者上传实例说明
-- 发布时间：2021/2/18 9:30:00
--
上传测试实例，请老师帮忙看看，想实现listgroup，点击筛选表单
-- 发布时间：2021/2/18 10:18:00
--
学会引用外部的js文件：http://www.foxtable.com/mobilehelp/topics/0061.htm
-- 发布时间：2021/2/18 11:38:00
--
老师，我原来已经在Web目录下做了lib目录的文本文件setCodes.js
function setCodes(){
var form = document.getElementById(\'form3\');
var form = document.getElementById(\'form3\');
form.submit();}HttpRequest 代码
With wb.AddListGroup("", "list1","<label style=\'color:#00CD00\'> 1. 工程概况")
.Add("ls1", "项目工程概况", "查询", "<a > gcgkcx.htm </a>") \'list无法引入.js执行zbkcx.htm form3的submit 跳转到gcgkcx.htm
End With
[此贴子已经被作者于2021/2/18 11:41:39编辑过]
-- 发布时间：2021/2/18 11:49:00
--
请仔细认真看看8楼的帮助，看看是怎么引用js文件的
建立一个文本文件，文件名为"calc.js"，文件内容为：
function markCalc(){
je.value=dj.value * sl.value * (1 - zk.value);
if(je.value >= 30000){
if(!je.classList.contains(\'mark\')){
je.classList.add(\'mark\');
}
}
else{
if(je.classList.contains(\'mark\')){
je.classList.remove(\'mark\');
}
}
}
………………
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnok","确定")
End With
wb.AppendHTML("<script src=\'./lib/calc.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)
End Select