分页显示记录正如我们在大学里选课时遇到的,每页显示多少科目,共有多少页。其实,这里主要用到的是Data Grid控件。接下来我来介绍一下关于它的知识。
一.原理:将原记录页的数据复制到一个新的记录集中,再将其绑定到Data Grid控件上,这样就能显示原记录页中的所有数据了!正如,我们要将母鸡下的蛋放进篮子里,我们吃的时候要从篮子里拿一样!
这里的新纪录集就相当于篮子!
二、关于Data Grid控件
pagesize:一个记录中包含记录的个数
pagecount:返回一个记录集的记录页总数
absolutepage:返回当前记录页编号
三、编写流程
四、关于分页显示部分代码解析
public sub showdata(byval intpage as integer)
'实现分页显示记录功能
dim objdatasource as new recordset 'objdatasource ’相当于原理中的篮子,即新的记录集
dim intpagecount as integer,intrecord as integer
'intpagecount表示共有多少条记录
’intrecord表示第几条记录
for intrecord = 0 to objrs.field.count-1 '表示记录的字段数
objdataresource.fields.appendobjrs.fields(intrecord).name,advarchar,objrs.fields (inttecord).definedsize '插入字段名append为插入方法
'objrs相当于原记录集
next
......
end sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。