Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
BindGridwx(e.NewPageIndex)
End Sub
Sub BindGridwx(ByVal ym As Integer)
‘数据连接代码
......
DataGrid1.CurrentPageIndex = ym
DataGrid1.DataBind()
......
End Sub
Sub Page_Load(sender As Object, e As EventArgs)
BindGrid
End Sub
Sub MyDataGrid_Page(sender As Object, e As DataGridPageChangedEventArgs)
dim startIndex as Integer
startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
MyDataGrid.CurrentPageIndex = e.NewPageIndex
BindGrid
ShowStats
End Sub
Sub BindGrid()
Dim myConnection As SqlConnection = New SqlConnection("server=mengxianhui;uid=sa;pwd=")
dim ds as DataSet = new DataSet()
dim adapter as SqlDataAdapter = new SqlDataAdapter("Select * from Authors", myConnection)
adapter.Fill(ds,"Authors")
Sub PagerButtonClick(sender As Object, e As EventArgs)
'used by external paging UI
Dim arg As string = sender.CommandArgument
Select arg
Case "next":
If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
MyDataGrid.CurrentPageIndex += 1
End If
Case "prev":
If (MyDataGrid.CurrentPageIndex > 0) Then
MyDataGrid.CurrentPageIndex -= 1
End If
Case "last":
MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
Case Else:
'page number
MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
End Select
BindGrid
ShowStats
End Sub
Sub ShowStats()
lblCurrentIndex.Text = "CurrentPageIndex is " & MyDataGrid.CurrentPageIndex
lblPageCount.Text = "PageCount is " & MyDataGrid.PageCount
End Sub
</script>
<html>
<head></head>
<body>
<h1 align="center">Paging Certain Number records per page<br /> .NET style using Beta 2!</h1>
<a href="http://aspfree.com/feedback.asp" target="_blank">Feedback, Comments, Questions??</a>
<br />
<blockquote>
<form runat="server">
<asp:LinkButton id="btnFirst" runat="server"
Text="Go to the first page"
CommandArgument="0"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
OnClick="PagerButtonClick"
/>
<asp:LinkButton id="btnLast" runat="server"
Text="Go to the last page"
CommandArgument="last"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
OnClick="PagerButtonClick"
/>