知识大全 ASP.NET程序中用Repeater实现分页

Posted 2022-07-18 知

篇首语：欲穷千里目，更上一层楼。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP.NET程序中用Repeater实现分页相关的知识，希望对你有一定的参考价值。

ASP.NET程序中用Repeater实现分页 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 一程序功能 　　为Repeater实现分页　　　　 二窗体设计 　　新建ASP NET Web应用程序命名为Repeater 保存路径为（注我机子上的网站的IP是的主目录是D:\\web文件夹）然后点击确定　　　　向窗体添加一个行一列的表向表的第一行中添加一个Repeater控件向表的第二行中添加两个Label控件向表的第三行中添加四个Button按钮　　　　切换到HTML代码窗口在＜asp:Repeater id= Repeater runat= server ＞和＜/asp:Repeater＞之间添加以下代码　　　　＜ItemTemplate＞　　＜table id= Table width= ＞　　＜tr＞　　＜td＞＜%#DataBinder Eval(Container DataItem employeeid )%＞＜/td＞　　＜td＞＜%#DataBinder Eval(Container DataItem lastname )%＞＜/td＞　　＜/tr＞　　＜/table＞　　＜/ItemTemplate＞　　　　 三代码设计 　　Imports System Data SqlClient　　Public Class WebForm 　　Inherits System Web UI Page　　　　Dim scon As New SqlConnection( server=localhost;database=northwind;uid=sa;pwd= )　　Dim sDA As SqlDataAdapter　　Dim ds As DataSet　　Dim currentPage As Integer 记录著目前在哪一页上　　Dim maxPage As Integer 总共有多少页　　Const rowCount As Integer = 一页有多少行　　Dim rowSum As Integer 总共有多少行　　　　窗体代码省略　　　　Private Sub Page_Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load　　　　If Not Page IsPostBack Then　　sDA = New SqlDataAdapter( select employeeid lastname from employees order by employeeid scon)　　ds = New DataSet　　Try　　sDA Fill(ds employees )　　获取总共有多少行　　rowSum = ds Tables( ) Rows Count　　Catch ex As Exception　　rowSum = 　　End Try　　　　如果没有数据退出过程　　If rowSum = Then Exit Sub　　计算出浏览数据的总页数　　If rowSum Mod rowCount ＞ Then　　有余数要加　　maxPage = rowSum \\ rowCount + 　　Else　　正好除尽　　maxPage = rowSum \\ rowCount　　End If　　　　currentPage = 　　调用绑定数据过程　　readpage(currentPage)　　BindData()　　Label Text = maxPage　　首页和上一页按钮不可见　　Button Visible = False　　Button Visible = False　　End If　　End Sub　　　　创建一个绑定数据的过程　　Sub BindData()　　Repeater DataSource = ds　　Repeater DataBind()　　Label Text = currentPage　　End Sub　　　　创建一个填充数据集的过程　　Sub readpage(ByVal n As Integer)　　sDA = New SqlDataAdapter( select employeeid lastname from employees order by employeeid scon)　　ds = New DataSet　　ds Clear()　　sDA Fill(ds (n ) * rowCount rowCount employees )　　End Sub　　　　首页按钮　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click　　　　currentPage = 　　调用填充数据集过程　　readpage(currentPage)　　绑定数据　　BindData()　　设置首页第一页按钮不可见显示下一页尾页按钮　　Button Visible = False　　Button Visible = False　　Button Visible = True　　Button Visible = True　　　　End Sub　　　　上一页按钮　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click　　如果现在页是第二页设置首页和上一页按钮不可见　　If Label Text ＞ Then　　Button Visible = True　　Button Visible = True　　Else　　Button Visible = False　　Button Visible = False　　Button Visible = True　　Button Visible = True　　End If　　currentPage = Label Text 　　readpage(currentPage)　　BindData()　　End Sub　　　　下一页按钮　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click　　如果现在页倒数第二页设置最后页和下一页按钮不可见　　If Label Text ＜ Label Text Then　　Button Visible = True　　Button Visible = True　　Else　　Button Visible = True　　Button Visible = True　　Button Visible = False　　Button Visible = False　　End If　　currentPage = Label Text + 　　readpage(currentPage)　　BindData()　　End Sub　　　　尾页按钮　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click　　设置当前页为最大页数　　currentPage = Label Text　　readpage(currentPage)　　BindData()　　Button Visible = True　　Button Visible = True　　Button Visible = False　　Button Visible = False　　End Sub　　End Class　　　　窗体界面如下所示　　 > cha138/Article/program/net/201311/11338