代码如下：
Dim e As RequestEventArgs = args(0)
'获取要显示的页
Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = 15 '每页10行
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 '此页第一行
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行
'获取该页数据
Dim wb As New WeUI
Se lect Case e.Path
Case "list.htm"
wb.AddPageTitle("","ph1","常住人口查询结果")
Dim flt As String
If e.PostValues.ContainsKey("户主姓名") Then
If flt > "" Then
flt = flt & " and "
End If
flt = flt & "[户主姓名] = '" & e.PostValues("户主姓名") & "'"
End If
If e.PostValues.ContainsKey("户主姓名") Then
If flt > "" Then
flt = flt & " and "
End If
flt = flt & "[姓名] = '" & e.PostValues("户主姓名") & "'"
End If
Dim cmd As New S QL Command
cmd.C '记得设置数据源名称
cmd.CommandText = "Se lect Count(*) From {常住人口}"
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
If flt > "" Then
cmd.CommandText = "Se lect * From (Se lect Row_Number() Over(Order by _identify) As [序号],[_Identify],分组名称,户主姓名,姓名,身份证件号码,联系电话,与户主关系 From 常住人口 where " & flt & ") As a "
Else
cmd.CommandText = "Se lect * From (Se lect Row_Number() Over(Order by _identify) As [序号],[_Identify],分组名称,户主姓名,姓名,身份证件号码,联系电话,与户主关系 From 常住人口) As a "
End If
Dim dt As DataTable = cmd.ExecuteReader
With wb.AddTable("","Table1")
.PageNumber = page '设置页码
.Primarykey = "_Identify" '设置主键
.ActiveSheet = "menu" '设置菜单
.CreateFromDataTable(dt,False,"","","序号","分组名称","姓名","联系电话","与户主关系","户主姓名")
End With
With wb.AddButtonGroup("","btg2", False) '生成上一页和下一页按钮
If page > 0 Then
.Add("btnPrev", "上一页","","List.htm?page=" & page - 1)
End If
If Endrow < count Then
.Add("btnNext", "下一页","","List.htm?page=" & page + 1)
End If
End With
With wb.AddButtonGroup("","btg1",True)
.Add("btn1", "重新筛选", "","filter.htm")
End With
wb.AppendHTML("<sc ript src='./lib/table.js'></sc ript>") '引入脚本文件
e.WriteString(wb.Build)
End Se lect
加好友 
发短信
Post By：2020/2/8 19:02:00 [显示全部帖子]
