PB DW实现分页

最新推荐文章于 2021-09-10 20:21:46 发布

墨染风华不染尘

最新推荐文章于 2021-09-10 20:21:46 发布

阅读量1.4k

点赞数

分类专栏： pb 文章标签：分页

本文链接：https://blog.youkuaiyun.com/qq_38197830/article/details/118731112

版权

pb 专栏收录该内容

19 篇文章

订阅专栏

这段代码展示了如何在DataWindow中实现翻页功能，包括向前翻页和向后翻页。同时，它计算了当前页的第一行、最后行、显示的行数以及总页数。此外，代码还处理了最后一页可能出现的不满一行记录的情况，通过插入空记录来填充。

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

//上一页
dw_1.ScrollPriorPage()
//下一页
dw_1.ScrollNextPage()

LONG ll_RowVis,ll_rowc,ll_page,ll_nowpage,ll_firstrow,ll_m,ll_lastrow
//当前页第一行
ll_firstrow = Long(dw_1.Object.DataWindow.FirstRowOnPage)
//当前页最后一行
ll_lastrow = Long(dw_1.Object.DataWindow.LastRowOnPage) 
//当前页显示条数
ll_RowVis = ll_lastrow - ll_firstrow + 1
//实际总行数
ll_rowc = dw_1.rowcount( )
//计算总页数
ll_page = int(ll_rowc/ll_RowVis) + 1

//当前页号
ll_nowpage =  int(ll_firstrow/ll_RowVis) + 1
//最后一页记录未满一页的记录数，插入空记录
for ll_m=1 to ( ( ll_RowVis * ll_page ) - ll_rowc )
	dw_1.insertrow( 0)
next