呵呵，不是 .NET 的 .
这几天论坛上回答问题，有人提出这个 DataGrid 控件的分页。
请看：
?
数据库： test2000.mdb
表： numbers
字段： Id( 自动编号 ) ， anumber( 数字 )
?
因为 DataGrid 控件我们采用直接绑定记录集来显示数据 . 所以分页处理我们采用了间接的办法，定义另一个记录集 objrs ，将分页后的记录集付给 objrs. 然后绑定 DataGrid
' 效果还不错 , 我加了详细地注释 ? 像 pagesize, AbsolutePage 的用法可参考 msdn
?
VB 中新建工程 ,form 中添加 DataGrid 控件 , 按钮 cmdPrevious 和 cmdNext ，文本框 txtPage
' 引用 microsoft active data object 2.x object library
Option Explicit
Dim conn As ADODB.Connection
Dim lCurrentPage As Long
?
Private Sub cmdNext_Click()
??? lCurrentPage = lCurrentPage + 1
??? Call Loadcontrol(lCurrentPage)
End Sub
?
Private Sub cmdPrevious_Click()
??? If lCurrentPage > 1 Then
??????? lCurrentPage = lCurrentPage - 1
??????? Call Loadcontrol(lCurrentPage)
??? End If
End Sub
?
Private Sub Form_Load()
???
??? Set conn = New ADODB.Connection
??? conn.CursorLocation = adUseClient
??? conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;"
?
??? lCurrentPage = 1
??? Call Loadcontrol(lCurrentPage)
?
End Sub
Private Sub Loadcontrol(lPage As Long)
??? Dim adoPrimaryRS As ADODB.Recordset
??? Dim lPageCount As Long
??? Dim nPageSize As Integer
??? Dim lCount As Long
???
??? ' 每页显示的纪录
??? nPageSize = 10
??? Set adoPrimaryRS = New ADODB.Recordset
??? adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic
?
??? adoPrimaryRS.PageSize = nPageSize
??? ' 页数
??? lPageCount = adoPrimaryRS.PageCount
??? If lCurrentPage > lPageCount Then
??????? lCurrentPage = lPageCount
??? End If
???
??? adoPrimaryRS.AbsolutePage = lCurrentPage
??? ' 定义另一个记录集
??? Dim objrs As New ADODB.Recordset
??? ' 添加字段名称
??? For lCount = 0 To adoPrimaryRS.Fields.Count - 1
??????? objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize
??? Next
??? ' 打开记录集
??? objrs.Open
??? ' 将指定记录数循环添加到 objrs 中
??? For lCount = 1 To nPageSize
??????? objrs.AddNew
??????? objrs!id = adoPrimaryRS!id
??????? objrs!anumber = adoPrimaryRS!anumber
??????? adoPrimaryRS.MoveNext
??? Next
??? ' 绑定
??? Set DataGrid1.DataSource = objrs
???
??? ' 在文本框显示页数
??? txtPage = lPage & "/" & adoPrimaryRS.PageCount
End Sub
?
Private Sub Form_Unload(Cancel As Integer)
??? If Not conn Is Nothing Then
??????? conn.Close
??? End If
??? Set conn = Nothing
End Sub
‘ 文本框中输入页数，回车跳转到指定位置
Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer)
??? lCurrentPage = Val(txtPage.Text)
??? Call Loadcontrol(lCurrentPage)
End Sub