Foxtable(狐表)用户栏目专家坐堂 → 分页显示后台数据问题


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

主题:分页显示后台数据问题

帅哥哟,离线,有人找我吗?
狐表(小白)
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:3946 威望:0 精华:0 注册:2019/9/17 10:06:00
分页显示后台数据问题  发帖心情 Post By:2021/11/23 15:44:00 [只看该作者]

代码如下,通过文本框输入的值作为过滤条件加载数据库数据,每次单击下一页按钮时,总是自动跳转到输入文本提交查询界面,怎么修改?
Dim e As RequestEventArgs = Args(0)
Dim wb As New weui

If e.Path.StartsWith("Reports\")
    Select Case e.Path
Case "Reports\rwtb.htm"  '任务填报
Dim yg as string
If e.PostValues.Count = 0 Then    
    wb.AddForm("","form1","rwtb.htm")
            With wb.AddInputGroup("form1","ipg1"," 生产任务填报")
    With .AddInput("xm","员工姓名","text")
'.value = yg
End With
            End With
            With wb.AddButtonGroup("form1","btngrp1",false) '水平排列
                .Add("btn1", "查询", "submit")
            End With
        Else
    e.Resp
        yg = e.PostValues("xm")
            Dim page As Integer = 0 '默认page为0,显示第一页
            Dim pageRows As Integer = 20 '每页10行
            If e.GetValues.ContainsKey("page") Then  '如果地址中有page参数
                Integer.TryParse(e.GetValues("page"), page) '提取page参数
            End If
            Dim StartRow As Integer = page * pageRows '此页第一行
            Dim EndRow As Integer = (page + 1) * pageRows - 1 '此页最后一行
            Dim cmd As New SQLCommand
            cmd.C '记得设置数据源名称
            cmd.CommandText = "Select Count(*) Fr om {V_APP_生产完成填报明细} where 派工员工 = '" & yg & "'"
            Dim Count1 As Integer = cmd.ExecuteScalar() '获取总的行数
            cmd.CommandText = "Select * Fr om (Select Row_Number() Over(Order by 订单编号) As RowNum,* Fr om {V_APP_生产完成填报明细} where 派工员工 = '" & yg & "') as a"
            cmd.CommandText = cmd.CommandText & "  Where RowNum >= " & StartRow & " And RowNum <= " & EndRow
            Dim dts As DataTable = cmd.ExecuteReader '获取该页数据
            Dim sb As New StringBuilder
            Dim nms() As String = {"工序","订单编号","派工单号","产品型号","派工数量","派工金额"}
            sb.AppendLine("<Table border='1'>") 
            sb.AppendLine("<caption>生产任务完成填报<caption></br>")
            sb.Append("<tr>")
            For Each nm As String In nms
                sb.Append("<td>" & nm & "</td>")
            Next
            sb.AppendLine("</tr>")
            For Each r As DataRow In dts.DataRows
                sb.Append("<tr>")
                For Each nm As String In nms
                     sb.Append("<td>" & r(nm) & "</td>")
                Next
    sb.Append("<td><a href='edit.htm?id=" & r("RowNum") & "&page=" & page & "'>查看</a></td>")
                'sb.Append("<td><a href='delete.htm?id=" & r("_Identify") & "&page=" & page & "'>删除</a></td>")
                sb.AppendLine("</tr>")
            Next
            sb.AppendLine("</Table></br></br>")
            If page > 0 Then
                sb.Append("<a href='rwtb.htm?page=" & page - 1 & "'>上一页</a> ")
            End If
            If EndRow < Count1 -1 Then
                sb.Append("<a href='rwtb.htm?page=" & page + 1 & "'>下一页 </a>" )
            End If
            e.WriteString(sb.ToString)
        End If
[此贴子已经被作者于2021/11/23 15:45:40编辑过]

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/23 16:07:00 [只看该作者]


 回到顶部