PB进度条

long ll_i,ll_rowcount

ll_rowcount = dw_1.rowcount( )
if ll_rowcount <= 0 then return

SetPointer(HourGlass!) //鼠标变成沙漏状

//w_sys_tip为进度条窗口，里面只需添加文本和进度条空间，无需写如何代码，最大化按钮去掉。

Open(w_sys_tip) //打开进度条窗口
w_sys_tip.st_info.text = '系统正在比对上月数据，请耐心等候...' //进度条窗口文本显示
w_sys_tip.hpb_bar.MaxPosition = ll_rowcount + 1 //进度条窗口中进度条的最大值


for ll_i = 1 to ll_rowcount

//执行循环的代码

//

if w_sys_tip.hpb_bar.Position <= ll_rowcount then //设置进度条自动增长。
w_sys_tip.hpb_bar.Position = w_sys_tip.hpb_bar.Position + 1
end if
next

SetPointer(Arrow!) //鼠标还原为小箭头。

Close(w_sys_tip) //关闭进度条。