Foxtable(狐表)用户栏目专家坐堂 → 筛选问题


  共有1743人关注过本帖树形打印复制链接

主题:筛选问题

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
筛选问题  发帖心情 Post By: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) 

 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/5/23 9:57:00 [只看该作者]

”f.htm“代码: 

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/5/23 12:13:00 [只看该作者]

可以了 谢谢老师

 回到顶部