Dim e As RequestEventArgs = args(0)
Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = 10 '每页15行
If e.GetValues.Contai nsKey("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 cmd As New SQLC ommand
cmd.ConnectionN am e = "智慧党建" '记得设置数据源名称
cmd.CommandT ext = "Sele ct Cou nt(*) From {学习内容列表} where 学习人员='" & e.Cookies("姓名") & "'"
Dim Count As Integer = cmd.Exe cuteScalar() '获取总的行数
cmd.Comm andText = "Sel ect * From (Sele ct Row_Number() Over(Order by _Identify) As [NO.],[_Identify],内容,学习标志 as 状态 From 学习内容列表 where 学习人员='" & e.Cookies("姓名") & "') As a "
cmd.CommandText = cmd.Comma ndText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader
'生成菜单
Dim wb As New WeUI
With wb.AddActionSheet("","menu") '设计菜单
.Add("mnuEdit", "开始学习").Attribute ="on cl ick=""getxuexi();"""
.Add("mnuCancel","取消","",True)
End With
'根据此页数据生成网页
With wb.AddTable("","Table1")
.AfterSelChange = "dynaActiveSheet()" '置顶选择不同单元格后要执行的js行数,注意区分大小写
.PageNumber = page '设置页码
.ActiveSheet = "menu" '设置菜单
.RowHead = 1 '左边第一列作为行头
.head.AddRow("序号","内容","状态")
.ColWidth="18px,,20px"
For Each dr As DataRow In dt.DataRows
With .body.AddRow()
.Primarykey =dr("_Identify")
Dim s As String = dr("内容")
If s.Length > 10 Then
s = s.SubString(0,25) & "..."
End If
Dim s1 As String
If dr("状态") =True Then
s1 ="√"
Else
s1 ="×"
End If
.AddCells(dr("NO."),s,s1)'逐个单元格增加
End With
Next
End With
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnPrev", "上一页","","getxuexiList.htm?page=" & page - 1)
End If
If Endrow < count Then
.Add("btnNext", "下一页","","getxuexiList.htm?page=" & page + 1)
End If
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
加好友 
发短信
Post By：2020/6/4 13:08:00 [只看该作者]
此主题相关图片如下：11.jpg