DAO实现的子窗体记录分页显示

t小宝

关键代码：

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

谢谢分享

qhp-soft

不错

asklove

学习一下

changweiren

谢谢楼主分享

xxiaoxin321

学习。。

fnsmydyang

真的不错哟,收藏学习了,谢谢

encwwei

不错!

shitou1ge

学习学习