文/waterswea
一、程式功能：為Repeater實現分頁
二、窗體設計：
1、新建ASP.NET Web應用程序，命名為Repeater2，保存路徑為http://192.168.0.1/Repeater2 （註：我機子上的網站的IP是192.168.0.1的主目錄是D:web資料夾）然後點選確定。
2.在窗體中新增一個3行一列的表，在表的第一行中新增一個Repeater控件，在表的第二行中新增兩個Label控件會在表的第三行中新增四個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>
三、程式設計：
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 '記錄目前在哪一頁上Dim maxPage As Integer '總共有多少頁Const rowCount As Integer = 3 '一頁有多少行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
'如果沒有數據，退出過程If rowSum = 0 Then Exit Sub
'計算瀏覽資料的總頁數If rowSum Mod rowCount > 0 Then
'有餘數要加1
maxPage = rowSum rowCount + 1
Else
'剛好除盡maxPage = rowSum rowCount
End If
currentPage = 1
'呼叫綁定資料過程readpage(currentPage)
BindData()
Label2.Text = maxPage
'首頁和上一頁按鈕不可見Button1.Visible = False
Button2.Visible = False
End If
End Sub
'建立一個綁定資料的過程
Sub BindData()
Repeater1.DataSource = ds
Repeater1.DataBind()
Label1.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 - 1) * rowCount, rowCount, "employees")
End Sub
'首頁按鈕
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
currentPage = 1
'呼叫填入資料集過程readpage(currentPage)
'綁定資料BindData()
'設定首頁、第一頁按鈕不可見，顯示下一頁尾頁按鈕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
'如果現在頁是第二頁，設定首頁和上一頁按鈕不可見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
'如果現在頁倒數第二頁，設定最後頁和下一頁按鈕不可見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
'尾頁按鈕Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'設定目前頁為最大頁數currentPage = Label2.Text
readpage(currentPage)
BindData()
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
End Sub
End Class
窗體介面如下所示：
