DataGrid也玩分页

呵呵，不是.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