代码如下，通过文本框输入的值作为过滤条件加载数据库数据，每次单击下一页按钮时，总是自动跳转到输入文本提交查询界面，怎么修改？
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编辑过]
加好友 
发短信
Post By：2021/11/23 15:44:00 [显示全部帖子]
