PB 数据窗口分页显示

http://hi.baidu.com/fengkuangfuhuo/blog/item/0cee587e03e444220dd7da19.html

使Datawindow每页固定500行
---- 第一步:增加一个计算列,此计算列必须放在Detail段，Expression中输入: ceiling(getrow()/500) <--这里500还可以用全局函数取代，这样可以允许用户任意设置每页多少行。 

---- 第二步:定义分组,选择菜单Rows->Create Group... 

---- 按计算列字段分组，并一定将check box-->New Page On Group Break选中。 

---- 第三步:将此计算列设为不可视。

可用它用翻页
ScrollPriorPage()
ScrollNextPage()
ScrollToRow() 

//考虑页，行，列三个变量 按页分组，
//页数=ceiling((当行号/100)
//列号=ceiling((ll_rowcount -100*(ll_page -1))/25)

//行号=记录数 -100*（页数 -1） -25*（列数 -1)+25*（页数 -1）
//当行号满足当前:记录号 -100*(页数 -1)=25时 插入值
ll_rowcount=0

for ll_loop=1 to 105
 
 ll_rowcount=ll_rowcount+1 
 ll_row=ll_rowcount -25*(ll_column -1) 
 ll_flg=ceiling(ll_loop/100)
 ll_column=ceiling((ll_rowcount -100*(ll_page -1))/25)

 ll_row=ll_rowcount -100*(ll_flg -1) -25*(ll_column -1)+25*(ll_flg -1)
 if (ll_rowcount -100*(ll_flg -1))<=25 then
       dw_1.insertrow(0)
 end if
 dw_1.setitem( ll_row, "flg", ll_flg)
 dw_1.setitem( ll_row, "n_money"+string(ll_column), ll_loop)
next

 

注意： 如果是按从上往下，从左到右排时，放值的行号在后边几列时必须要比前边的行（已分页的行）的行号大，不然没法实现分页。