Access子窗体记录分页显示
时间：2013-12-13 14:42 来源：office中国 作者：t小宝 阅读：次
软件类型：国产软件
授权方式：免费软件
界面语言：简体中文
软件大小：144 KB
文件类型：.rar
运行环境：Win2003,WinXP,Win7,win8
软件等级：★★★★★
发布时间：2013-12-13
插件情况：
下载次数：
下载次数：
软件介绍：
当记录很多的时候，我们就需要对记录进行分页显示了。这样的好处是，保持界面的美观，不会破坏窗体的结构；数据查看更加清晰明了，方便管理。
在Access中，我们习惯用子窗体来显示记录。他并不像.net 那样，可以用控件来绑定数据。然后设置对每条记录的控制，只需要把勾打上，就能实现分页等功能。而我们在Access中设置数据分页就需要一定的代码了。
下面的示例就是通过DAO来都子窗体的数据进行分页查看，能上下翻页查看，设置每一页的显示多少条记录，还能跳转到特定的页码。
关键代码：
Private Function ChangeRstPage(frm As Form, rst As DAO.Recordset, sFldID As String, iPageRecCount As Integer, iCurrentPage As Integer)
' 将按页码筛选后的记录集作为窗体记录集
Dim iStartNumber As Integer
Dim lngStartID As Long
Dim lngLastID As Long
iStartNumber = (iCurrentPage - 1) * iPageRecCount
With rst
If .RecordCount > 0 Then
.MoveFirst
.Move iStartNumber
If .EOF Then Exit Function
lngStartID = .Fields(sFldID)
.Move iPageRecCount - 1
If .EOF Then .MoveLast
lngLastID = .Fields(sFldID)
.Filter = sFldID & " Between " & lngStartID & " And " & lngLastID
End If
Set frm.Recordset = .OpenRecordset
End With
End Function
在Access中，我们习惯用子窗体来显示记录。他并不像.net 那样，可以用控件来绑定数据。然后设置对每条记录的控制，只需要把勾打上，就能实现分页等功能。而我们在Access中设置数据分页就需要一定的代码了。
下面的示例就是通过DAO来都子窗体的数据进行分页查看，能上下翻页查看，设置每一页的显示多少条记录，还能跳转到特定的页码。
关键代码：
Private Function ChangeRstPage(frm As Form, rst As DAO.Recordset, sFldID As String, iPageRecCount As Integer, iCurrentPage As Integer)
' 将按页码筛选后的记录集作为窗体记录集
Dim iStartNumber As Integer
Dim lngStartID As Long
Dim lngLastID As Long
iStartNumber = (iCurrentPage - 1) * iPageRecCount
With rst
If .RecordCount > 0 Then
.MoveFirst
.Move iStartNumber
If .EOF Then Exit Function
lngStartID = .Fields(sFldID)
.Move iPageRecCount - 1
If .EOF Then .MoveLast
lngLastID = .Fields(sFldID)
.Filter = sFldID & " Between " & lngStartID & " And " & lngLastID
End If
Set frm.Recordset = .OpenRecordset
End With
End Function
顶一下
(4)
100%
踩一下
(0)
0%
下载地址：
注意事项：
☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。
相关软件
最新软件
推荐软件