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