[原创] 如何实现子窗体的分页显示

宿命的风

今天终于做出来了!  呵呵!

已经更新!

[此贴子已经被作者于2005-12-15 22:03:34编辑过]

wuaza

我要看看是怎么实现的。

风筝

看看

gaoqiwen

看看

gaoqiwen

按上一页，好象回不了第一页

[此贴子已经被作者于2005-9-7 15:15:52编辑过]

gaoqiwen

Select Case way

    Case True                                                              '向上移动

        If currentPage = 1 Then                                            '判断当前是否为1,如果是则提示无法移动

            MsgBox "已经是第一页!", vbInformation, "提示"

        Else                                                               '选择前N条数据,ID在(当前页-1)*条数 之外

            sql = "select top " & IntCount & " * from student where " _

                & " id not in (select top " & (currentPage - 1) * IntCount & " id from student)"

            Me.dqpage = Me.dqpage - 1                                      '更新当前页

            Me.student_sub.Form.RecordSource = sql                         '更改子窗体数据源

            Me.student_sub.Requery                                         '刷新子窗体

        End If

    Case False                                                             '向下移动

        If currentPage = MaxPage Then

            MsgBox "已经是最后一页!", vbInformation, "提示"

        Else    '

            sql = "select top " & IntCount & " * from student where " _

                & " id not in (select top " & currentPage * IntCount & " id from student)"

            Me.dqpage = Me.dqpage + 1

            Me.student_sub.Form.RecordSource = sql

            Me.student_sub.Requery

        End If建议将红色字代码换为：if currentPage - 2 = 0 then

    sql = "select top " & IntCount & " * from student "

else

    sql = "select top " & IntCount & " * from student where " _

        & " id not in (select top " & (currentPage - 2) * IntCount & " id from student)"

endif

宿命的风

以下是引用gaoqiwen在2005-9-7 15:34:00的发言：



Select Case way

    Case True                                                              '向上移动

        If currentPage = 1 Then                                            '判断当前是否为1,如果是则提示无法移动

            MsgBox "已经是第一页!", vbInformation, "提示"

        Else                                                               '选择前N条数据,ID在(当前页-1)*条数 之外

            sql = "select top " & IntCount & " * from student where " _

                & " id not in (select top " & (currentPage - 1) * IntCount & " id from student)"

            Me.dqpage = Me.dqpage - 1                                      '更新当前页

            Me.student_sub.Form.RecordSource = sql                         '更改子窗体数据源

            Me.student_sub.Requery                                         '刷新子窗体

        End If

    Case False                                                             '向下移动

        If currentPage = MaxPage Then

            MsgBox "已经是最后一页!", vbInformation, "提示"

        Else    '

            sql = "select top " & IntCount & " * from student where " _

                & " id not in (select top " & currentPage * IntCount & " id from student)"

            Me.dqpage = Me.dqpage + 1

            Me.student_sub.Form.RecordSource = sql

            Me.student_sub.Requery

        End If

建议将红色字代码换为：

if currentPage - 2 = 0 then

    sql = "select top " & IntCount & " * from student "

else

    sql = "select top " & IntCount & " * from student where " _

        & " id not in (select top " & (currentPage - 2) * IntCount & " id from student)"

endif

    谢谢! 原来没有发现这个问题,早上已经有人提出错误，中午的时候已经改正了!

            If currentPage = 2 Then

                sql = "select top " & IntCount & " * from student "

            Else

                sql = "select top " & IntCount & " * from student where " _

                    & " id not in (select top " & (currentPage - 2) * IntCount & " id from student)"

            End If

wu8313

欣赏欣赏！不错不错，没收掉！

[此贴子已经被作者于2005-9-7 18:11:54编辑过]

good

看看

dhwx

看看