Office中国论坛/Access中国论坛

标题: DAO实现的子窗体记录分页显示 [打印本页]

作者: t小宝 时间: 2009-7-23 22:55
标题: 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

作者: Henry D. Sy 时间: 2009-7-23 23:56
谢谢分享

作者: qhp-soft 时间: 2009-7-24 00:26
不错

作者: asklove 时间: 2009-7-24 07:42
学习一下

作者: changweiren 时间: 2009-7-26 00:07
谢谢楼主分享

作者: xxiaoxin321 时间: 2009-10-17 14:10
学习。。

作者: fnsmydyang 时间: 2010-11-5 22:32
真的不错哟,收藏学习了,谢谢

作者: encwwei 时间: 2010-11-6 14:35
不错!

作者: shitou1ge 时间: 2010-11-8 15:05

学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)