DataGrid自動分頁功能

Private Sub dtgUsers_PageIndexChanged(ByVal source As Object, ByVal e As                       System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dtgUsers.PageIndexChanged

          DataGridBind(e.NewPageIndex)

  End Sub

 

 

'Refresh the datagrid's data

        Private Sub DataGridBind(Optional ByVal PageIndex As Int32 = 0)

            'datagrid databind()

            Me.dtgUsers.CurrentPageIndex = PageIndex

            viewstate.Add("PageIndex", PageIndex)

            Me.dtgUsers.DataSource = [datatableName]
            Me.dtgUsers.DataBind()

            'is datagrid null

            If dtgUsers.Items.Count = 0 Then

                AlertScript.ShowAlert(Me, "", AlertScript.Message.NoData)

            End If

        End Sub