由于将所有的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("CH08MyWeb.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("CH08MyWeb.mdb", "Members") dgA.DataSource=dtDataTable.DefaultView Page.DataBind() End Sub </SCRIPT> </Html>
|