- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 筛选问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135303)
-- 发布时间：2019/5/23 9:56:00
-- 筛选问题
老师，我新建了两个网页分别是“e.htm”, "f.htm" 我想做一个查询界面，当我选择一个部门的时候，点击查询按钮就会跳转到“f.htm”网页并过滤出对应部门的行，但是我点击查询 出来的是全部数据，请问老师我需要怎么修改代码
此主题相关图片如下：1.png
此主题相关图片如下：2.png
“e.htm”代码：Dim wb As New WeUI
Select Case e.Path
Case "e.htm"
wb.AddForm("","form1","e.htm")
Dim gjs As List(of String) = DataTables("WIFI查询资料").GetValues("部门")
With wb.AddInputGroup("form1","ipg1","数据筛选")
.AddSelect("部门","部门","|" & String.Join("|",gjs.ToArray))
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "查询", "submit", "f.htm")
End With
End Select
e.WriteString(wb.Build)
-- 发布时间：2019/5/23 9:57:00
--
”f.htm“代码：
此主题相关图片如下：3.png
-- 发布时间：2019/5/23 11:29:00
--
Select Case e.Path
Case "e.htm"
wb.AddForm("","form1","f.htm")
Dim gjs As List(of String) = DataTables("WIFI查询资料").GetValues("部门")
With wb.AddInputGroup("form1","ipg1","数据筛选")
.AddSelect("部门","部门","|" & String.Join("|",gjs.ToArray))
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "查询", "submit")
End With
End Select
e.WriteString(wb.Build)
-- 发布时间：2019/5/23 12:13:00
--
可以了 谢谢老师