如何使用 Visual VB .NET 对 DataGrid Windows 控件执行分页

Imports System.Data
Public Class test

#Region "成员变量"

 

    Private dtSource As DataTable
    Private PageCount As Integer
    Private maxRec As Integer
    Private pageSize As Integer
    Private currentPage As Integer
    Private recNo As Integer

#End Region

    Private Sub LoadPage()
        Try
            Dim i As Integer
            Dim startRec As Integer
            Dim endRec As Integer
            Dim dtTemp As DataTable

            'Clone the source table to create a temporary table.
            dtTemp = dtSource.Clone()

            If currentPage = PageCount Then
                endRec = maxRec
            Else
                endRec = pageSize * currentPage
            End If
            startRec = recNo
            For i = startRec To endRec - 1

                'Copy rows from the source table to fill the temporary table.
                dtTemp.ImportRow(dtSource.Rows(i))
                recNo += 1
            Next
            Me.DataGridView1.DataSource = dtTemp

            DisplayPageInfo()
        Catch ex As Exception

        End Try

    End Sub

    '显示当前页数
    Private Sub DisplayPageInfo()

        Me.lblPageCount.Text = currentPage.ToString()
        'Me.lblPageCount.Text = "Page " + currentPage.ToString() + "/ " + PageCount.ToString()
    End Sub

    '设置每页显示记录数
    Private Function CheckFillButton() As Boolean

        ' Check if the user clicks the "Fill Grid" button.
        If pageSize = 0 Then
            MessageBox.Show("请您设置每页显示的记录数!")
            'MessageBox.Show("Set the Page Size, and then click the Fill Grid button!")
            Return False
        Else