vb使用MSHFlexGrid4分页!!!

最新推荐文章于 2019-02-22 19:54:02 发布

xingxingxiangrong

最新推荐文章于 2019-02-22 19:54:02 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

文章标签： vb command function integer string

本文链接：https://blog.youkuaiyun.com/xingxingxiangrong/article/details/1932001

这篇博客介绍了如何在VB中利用MSHFlexGrid4控件实现数据分页功能。通过定义函数breakepage，设置页大小、处理不同分页操作（如首次、上一页、下一页、末页），并结合ADODB.Command从数据库查询数据，动态填充MSHFlexGrid4。示例代码中还包括了Command按钮事件来触发不同分页行为。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

昨天刚试de,拿出来大家参考一下,如果有错谢谢大家给提出来!!!

Function breakepage(pagesize As Integer, biaoji As String)
Static Currentpage
Dim pagecount
Dim adoadd As New ADODB.Command
adoadd.ActiveConnection = Con
adoadd.CommandType = adCmdText
adoadd.CommandText = "select * from daoru where kdbj=0 and kuwei='xg' order by xuhao "
Set rsbd = adoadd.Execute

If rsbd.EOF Or rsbd.BOF Then

   Label25.Caption = "共有0条记录"
   Label37.Caption = "共0页"
   Label26.Caption = "当前是第0页 "

   MSHFlexGrid4.Rows = 1
   Exit Function
End If
rsbd.pagesize = pagesize
MSHFlexGrid4.Rows = pagesize+1
Select Case biaoji
       Case "first":
       Currentpage = 1
       Case "pre":
       Currentpage = Currentpage - 1
       If Currentpage &l