|
|
為Repeater實(shí)現(xiàn)分頁(yè)
二、窗體設(shè)計(jì)：
1、新建ASP.NET Web應(yīng)用程序，命名為Repeater2，保存路徑為http://192.168.0.1/Repeater2（注：我機(jī)子上的網(wǎng)站的IP是192.168.0.1的主目錄是D:/web文件夾）然后點(diǎn)擊確定。
2、向窗體添加一個(gè)3行一列的表，向表的第一行中添加一個(gè)Repeater控件，向表的第二行中添加兩個(gè)Label控件向表的第三行中添加四個(gè)Button按鈕。
3、切換到HTML代碼窗口，在＜ASP:Repeater id="Repeater1" runat="server"＞和＜/ASP:Repeater＞之間添加以下代碼：
＜ItemTemplate＞
＜table id="Table2" style="FONT-SIZE: x-small" width="498"＞
＜tr＞
＜td＞＜%#DataBinder.Eval(Container,"DataItem.employeeid")%＞＜/td＞
＜td＞＜%#DataBinder.Eval(Container,"DataItem.lastname")%＞＜/td＞
＜/tr＞
＜/table＞
＜/ItemTemplate＞
三、代碼設(shè)計(jì)：
Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page
Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
Dim sDA As SqlDataAdapter
Dim ds As DataSet
Dim currentPage As Integer '記錄著目前在哪一頁(yè)上
Dim maxPage As Integer '總共有多少頁(yè)
Const rowCount As Integer = 3 '一頁(yè)有多少行
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(0).Rows.Count
Catch ex As Exception
rowSum = 0
End Try
'如果沒(méi)有數(shù)據(jù)，退出過(guò)程
If rowSum = 0 Then Exit Sub
'計(jì)算出瀏覽數(shù)據(jù)的總頁(yè)數(shù)
If rowSum Mod rowCount ＞ 0 Then
'有余數(shù)要加1
maxPage = rowSum / rowCount + 1
Else
'正好除盡
maxPage = rowSum / rowCount
End If
currentPage = 1
'調(diào)用綁定數(shù)據(jù)過(guò)程
readpage(currentPage)
BindData()
Label2.Text = maxPage
'首頁(yè)和按鈕不可見(jiàn)
Button1.Visible = False
Button2.Visible = False
End If
End Sub
'創(chuàng)建一個(gè)綁定數(shù)據(jù)的過(guò)程
Sub BindData()
Repeater1.DataSource = ds
Repeater1.DataBind()
Label1.Text = currentPage
End Sub
'創(chuàng)建一個(gè)填充數(shù)據(jù)集的過(guò)程
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 - 1) * rowCount, rowCount, "employees")
End Sub
'首頁(yè)按鈕
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
currentPage = 1
'調(diào)用填充數(shù)據(jù)集過(guò)程
readpage(currentPage)
'綁定數(shù)據(jù)
BindData()
'設(shè)置首頁(yè)、第一頁(yè)按鈕不可見(jiàn)，顯示尾頁(yè)按鈕
Button1.Visible = False
Button2.Visible = False
Button3.Visible = True
Button4.Visible = True
End Sub
'按鈕
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'如果現(xiàn)在頁(yè)是第二頁(yè)，設(shè)置首頁(yè)和按鈕不可見(jiàn)
If Label1.Text ＞ 2 Then
Button3.Visible = True
Button4.Visible = True
Else
Button1.Visible = False
Button2.Visible = False
Button3.Visible = True
Button4.Visible = True
End If
currentPage = Label1.Text - 1
readpage(currentPage)
BindData()
End Sub
'按鈕
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'如果現(xiàn)在頁(yè)倒數(shù)第二頁(yè)，設(shè)置最后頁(yè)和按鈕不可見(jiàn)
If Label1.Text ＜ Label2.Text - 1 Then
Button1.Visible = True
Button2.Visible = True
Else
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
End If
currentPage = Label1.Text + 1
readpage(currentPage)
BindData()
End Sub
'尾頁(yè)按鈕
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'設(shè)置當(dāng)前頁(yè)為最大頁(yè)數(shù)
currentPage = Label2.Text
readpage(currentPage)
BindData()
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
End Sub
End Class
窗體界面如下所示：
AspNet技術(shù)：ASP.NET程序中用Repeater實(shí)現(xiàn)分頁(yè)，轉(zhuǎn)載需保留來(lái)源！
鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除，多謝。
