DataGrid分頁控件

Imports System.Data.SqlClient

Imports System.Data

Imports System.Web.UI

 

Public Class UCDataGridPaging

    Inherits System.Web.UI.UserControl

 

    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

 

#Region " Web Form Designer Generated Code "

 

    'This call is required by the Web Form Designer.

    <System.Diagnostics.DebuggerStepThrough()> 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

 

    Protected WithEvents uc_DataGrid As System.Web.UI.WebControls.DataGrid

 

    Public WriteOnly Property DataGridName() As DataGrid

        Set(ByVal value As DataGrid)

            uc_DataGrid = value

        End Set

    End Property

 

    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 = "最后?"

        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 (uc_DataGrid.CurrentPageIndex < (uc_DataGrid.PageCount - 1)) Then

                    uc_DataGrid.CurrentPageIndex += 1

                End If

            Case "prev"

                If (uc_DataGrid.CurrentPageIndex > 0) Then

                    uc_DataGrid.CurrentPageIndex -= 1

                End If

            Case "last"

                uc_DataGrid.CurrentPageIndex = (uc_DataGrid.PageCount - 1)

            Case Else

                'page number

                uc_DataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)

        End Select

        BindGrid()

        ShowStats()

    End Sub

 

    Sub BindGrid()

 

        uc_DataGrid.DataBind()

        ShowStats()

 

    End Sub

 

    Sub ShowStats()

        lblCurrentIndex.Text = "第 " + (uc_DataGrid.CurrentPageIndex + 1).ToString() + " ?"

        lblPageCount.Text = "?共 " + uc_DataGrid.PageCount.ToString() + " ?"

    End Sub

End Class