第一次查询,进入下一页,分别看看弹出的数据
Dim e As RequestEventArgs = args(0)
Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = 10 '每页15行
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
msgbox(page)
Dim StartRow As Integer = page * pageRows + 1 '此页第一行
msgbox(StartRow)
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行
msgbox(EndRow)
'获取该页数据
……
Dim cmd As New SQLCommand
cmd.ConnectionName = "智慧党建" '记得设置数据源名称
cmd.CommandText = "Select Count(*) From {党员信息} where " & flt
msgbox(cmd.CommAndText)
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
'Dim Pages As Integer = Math.Ceiling(Count/PageRows) '计算出总页数
MessageBox.Show(count)
If flt > "" Then
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息 where " & flt & ") As a "
Else
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息) As a "
End If
cmd.CommandText = cmd.CommandText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
msgbox(cmd.CommAndText)
Dim dt As DataTable = cmd.ExecuteReader