Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分页统计


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

主题：分页统计
帅哥哟，离线，有人找我吗？
BG小白
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/3 18:56:00 [只看该作者]

谢谢蓝老师，虽然不明白为什么，总算是搞出来了

 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/3 19:33:00 [只看该作者]

我还有一张表，结构和这张表一样，我也想使用同样的查询功能，我复制了代码，修改了接收表单数据的网页，结果什么都不显示，是不是下面带颜色部分需要修改？
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Select Case e.Path
    Case "filter1.htm"
        wb.AddForm("","form1","list1.htm")
        With wb.AddInputGroup("form1","ipg1","编号查询")
            .AddSelect("product","编号","" & e.GetValues("oid") & "")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "查询", "submit")
        End With
        
    Case "list1.htm"
        
        '合成条件
        Dim flt As String
        If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
            wb.ClearCookie()
        ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式
            If e.PostValues.ContainsKey("product") Then
                flt = "bh = '" & e.PostValues("product") & "'" '合成条件
                wb.AppendCookie("product", e.PostValues("product")) '将值写入cookie中
            Else
                wb.DeleteCookie("product") '删除cookie
            End If
        Else '否则根据Cookie合成条件表达式
            If e.Cookies.ContainsKey("product") Then
                flt = "bh = '" & e.Cookies("product") & "'"
            End If
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/3 20:21:00 [只看该作者]

不知道错了，不管我走哪个oid编号进入，都是显示一个单子
[此贴子已经被作者于2021/7/3 20:30:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/3 20:33:00 [只看该作者]

        Dim flt As String
        If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
            wb.ClearCookie()
        ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式
            If e.PostValues.ContainsKey("product") Then
                flt = "bh = '" & e.PostValues("product") & "'" '合成条件

                wb.AppendCookie("product", e.PostValues("product")) '将值写入cookie中
            Else
                wb.DeleteCookie("product") '删除cookie
            End If
        Else '否则根据Cookie合成条件表达式
            If e.Cookies.ContainsKey("product") Then
                flt = "bh = '" & e.Cookies("product") & "'"
            End If
        End If
        MessageBox.Show(e.PostValues("product")）
我看了一下，oid也没有错啊
 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/4 2:19:00 [只看该作者]

重新测试了一下，确定是cookie有问题，我现在只有第一次提交的单子是没有问题的，提交另外一个单号的就不行了

 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/4 3:51:00 [只看该作者]

试了好多次，发现是这张表加载了所有的行，一直点下一页，直到点到搜索的编号正确行，就会显示行，编号不正确，就不显示，但是会显示空表，是哪里有问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码错误.txt
 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/4 3:53:00 [只看该作者]

以下内容是专门发给有点蓝浏览

这是生成的3张编号，都是显示全部行
[此贴子已经被作者于2021/7/4 3:57:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107347 积分：546002 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/4 20:24:00 [只看该作者]

Case "list.htm"这个页面的代码不完整，看不出什么问题

 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/7/4 20:34:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:全部代码.txt
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107347 积分：546002 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/4 20:59:00 [只看该作者]

        Dim flt As String
        If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
MessageBox.Show(e.GetValues("unfilter")）
            wb.ClearCookie()
        ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式
            If e.PostValues.ContainsKey("product") Then
                flt = "bh = '" & e.PostValues("product") & "'" '合成条件
                wb.AppendCookie("product", e.PostValues("product")) '将值写入cookie中
            Else
                wb.DeleteCookie("product") '删除cookie
MessageBox.Show(“删除cookie” ）
            End If
        Else '否则根据Cookie合成条件表达式
MessageBox.Show(“根据cookie” ）
            If e.Cookies.ContainsKey("product") Then
                flt = "bh = '" & e.Cookies("product") & "'"
            End If
        End If
MessageBox.Show(flt ）
        MessageBox.Show(e.PostValues("product")）
 回到顶部
总数 66 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询