龙卷风.NET的专栏

专注于MOSS的开发管理

DataGrid也玩分页

呵呵,不是.NET.

这几天论坛上回答问题,有人提出这个DataGrid控件的分页。

请看:

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

数据库:test2000.mdb

表:numbers

字段:Id(自动编号)anumber(数字)

因为DataGrid控件我们采用直接绑定记录集来显示数据.所以分页处理我们采用了间接的办法,定义另一个记录集objrs,将分页后的记录集付给objrs.然后绑定DataGrid

'效果还不错 , 我加了详细地注释?pagesize, AbsolutePage的用法可参考msdn

VB中新建工程,form中添加DataGrid控件,按钮cmdPreviouscmdNext,文本框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

阅读更多
个人分类: visualbasic
想对作者说点什么? 我来说一句

wpf dataGrid 分页

2018年06月07日 255KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭