由于將所有的37 筆數據顯示出來顯的太雜亂,所以我們將DataGrid Web 控件的分頁功能打開。只要在DataGrid Web 控件的宣告中加入AllowPaging="True",表示要將資料分頁展示;而宣告PageSize="5" 表示每頁要顯示5 筆記錄。另外在分頁的時候,DataGrid Web 控件的CurrentPageIndex 屬性會被改變,所以在點選分頁按鈕的時候會引發OnPageIndexChanged事件。如果要正確的支持分頁的功能,我們就必須利用這個事件程序將DataGrid Web 控件以新的CurrentPageIndex 屬性再和數據源系結一次。如下所示:
<%@Import Namespace=System.Data.ADO%>
<%@Import Namespace=System.Data%>
<!--#Include File="GetTable.inc"-->
<Html>
<Form Runat="Server">
<ASP:DataGrid Id="dgA" Runat="Server"
AllowPaging="True" PageSize="5" OnPageIndexChanged="dgA_PageChg"/>
</Form>
<Script Language="VB" Runat="Server">
Sub Page_Load(Sender As Object, e As EventArgs)
If Page.IsPostBack=False Then
Dim dtDataTable As DataTable=GetTable("CH08\MyWeb.mdb", "Members")
dgA.DataSource=dtDataTable.DefaultView
Page.DataBind()
End If
End Sub
Sub dgA_PageChg(Sender As Object, e As DataGridPageChangedEventArgs)
Dim dtDataTable As DataTable=GetTable("CH08\MyWeb.mdb", "Members")
dgA.DataSource=dtDataTable.DefaultView
Page.DataBind()
End Sub
</SCRIPT>
</Html>