关于读取数据并分页显示在表格中的问题，请指教,谢谢! - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 关于读取数据并分页显示在表格中的问题，请指教,谢谢!

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 614 人关注过本帖

标题：关于读取数据并分页显示在表格中的问题，请指教,谢谢!

取消只看楼主加入收藏

qinyun

等　级：新手上路
帖　子：46
专家分：0
注　册：2008-6-6
结帖率：20%

楼主

已结贴√ 问题点数：3 回复次数：6

关于读取数据并分页显示在表格中的问题，请指教,谢谢!

在网上获得一份读取数据并分页显示在表格中的代码，现在利用在了我的小软件中，我想在他的基础上进行改进，但一直不成功，
目前达到的分页效果是

图片附件: 游客没有浏览图片的权限，请登录或注册

想达到的效果是就是想加入首页和尾页

图片附件: 游客没有浏览图片的权限，请登录或注册

分页.rar (58.43 KB)

搜索更多相关主题的帖子: 软件　网上　

2015-04-21 14:17

qinyun

等　级：新手上路
帖　子：46
专家分：0
注　册：2008-6-6

第 2 楼

得分:0

那再麻烦一下，如何在前后加入上一页和下一页呢

2015-04-21 16:57

qinyun

等　级：新手上路
帖　子：46
专家分：0
注　册：2008-6-6

第 3 楼

得分:0

程序代码：

Select Case T_Page(Index).Caption
        Case "->>"
            Call Build_Results(Val(T_Page(Index - 1).Caption))
        Case "<<-"
            Call Build_Results(Val(T_Page(Index + 1).Caption) - 2)
        Case "首页"
            Call Build_Results(0)
        Case "尾页"
            Call Build_Results(PageCount - 1)
        Case "上一页"
       
        Case "下一页"
       
        Case Else
            Call Build_Results(Val(T_Page(Index).Caption) - 1)
End Select