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 & " est2000.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

原文转自：http://www.ltesting.net