|
由于将所有的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>
|
