分页查询 点击筛选,为什么会连续弹出三个 "‘姓名‘ 附近有错误" 弹窗
Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRow As Integer = 10 '每页10行
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim StartRow As Integer = page * pageRow '此页第一行
Dim EndRow As Integer = (page+1) * pageRow - 1 '此页最后一行
Dim flt As String
If e.PostValues.ContainsKey("name") Then
flt = "[姓名] = '" & e.PostValues("name") & "'"
End If
cmd.CommandText = "selec t [日期],[姓名],[设备编号ID],[工序],[工位],[物料名称],[规格],[数量],[单位],[工时] fro m " & _
"(Select Row_Number() Over(Order by [日期] Desc) As 序号, " & _
" * Fro m {日报表}) As tmp"
cmd.CommandText = cmd.CommandText & "wher e" & flt & " tmp.[序号]>=" & StartRow & "And tmp.[序号]<=" & EndRow
Dim Count As Integer = cmd.ExecuteScalar() '获取行的总数
DataTables("日报表").SQLLoad(cmd.CommandText)
cmd.ExecuteReader