下面的这个例子提供了DataGrid的分页功能。aspx代码和Cohe Behind代码分别如下,注意更改数据录连接字符串。结果如下: DataGridPaging.aspx 程序代码 <%@ Page Language="vb" AutoEventWireup="false" Codebehind="DataGridPaging.aspx.vb" Inherits="DataGridPaging"%>
DataGridPaging.aspx.vb Imports System.Data.SqlClient Imports System.Data Imports System.Web.UI Public Class DataGridPaging Inherits System.Web.UI.Page Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid Protected WithEvents btnFirst As System.Web.UI.WebControls.LinkButton Protected WithEvents btnPrev As System.Web.UI.WebControls.LinkButton Protected WithEvents btnNext As System.Web.UI.WebControls.LinkButton Protected WithEvents btnLast As System.Web.UI.WebControls.LinkButton Protected WithEvents lblCurrentIndex As System.Web.UI.WebControls.Label Protected WithEvents lblPageCount As System.Web.UI.WebControls.Label Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer.
Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles MyBase.Load btnFirst.Text = "最首页" btnPrev.Text = "前一页" btnNext.Text = "下一页" btnLast.Text = "最后页" OpenDatabase() BindGrid() End Sub Sub MyDataGrid_Page(ByVal sender As Object, ByVal 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 = cn Dim ds As DataSet = New DataSet() Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from Orders", myConnection) adapter.Fill(ds, "Orders") MyDataGrid.DataSource = ds.Tables("Orders").DefaultView MyDataGrid.DataBind() ShowStats() End Sub Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs) 'used by external paging UI Dim arg As String = sender.CommandArgument Select Case 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 = "第 " + (MyDataGrid.CurrentPageIndex + 1).ToString() + " 页" lblPageCount.Text = "总共 " + MyDataGrid.PageCount.ToString() + " 页" End Sub Public cn As New SqlClient.SqlConnection() Public Sub OpenDatabase() cn.ConnectionString = "Server=.;Database=NorthWind;User Id=sa;Password=;" cn.Open() End Sub End Class
一个功能齐全的DataGrid分页例子
最新推荐文章于 2012-06-19 08:41:31 发布