PB DW实现分页

//上一页
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