PB-后台Retrieve报表

最新推荐文章于 2023-07-05 12:36:55 发布

还未放弃

最新推荐文章于 2023-07-05 12:36:55 发布

阅读量391

点赞数

分类专栏： pb datawindow 文章标签：经验分享

本文链接：https://blog.csdn.net/weixin_31729631/article/details/124250447

版权

pb 同时被 2 个专栏收录

2 篇文章 0 订阅

订阅专栏

datawindow

2 篇文章 0 订阅

订阅专栏

原理：在线程中调用pb数据窗口进行retrieve

pb代码：

// 动态库函数定义
function ulong pb_retrieve(datawindow dw,...) system library "easypj.dll" alias for "pb_retrieve"
function ulong pb_cancel(datawindow dw) system library "easypj.dll" alias for "pb_cancel"

// 查询按钮代码
st_s.text ='0'
timer(1)

pb_retrieve(dw_1)

// timer代码
long ll_zhs,ll_rt
ll_zhs = long(st_all.text)
if(ll_zhs = 0) then
	timer(0)
else
	st_s.text =string( long(st_s.text ) + 1)
	ll_rt = dw_1.rowcount()
	st_psd.text = string(ll_rt / long(st_s.text) )
	st_sd.text = string( ll_rt - long(st_done.text) )
	st_done.text = string(ll_rt)
	st_sy.text = string(ll_zhs - ll_rt)
	if ll_zhs = ll_rt then timer(0)
	hpb_1.Position = ll_rt* 100 / ll_zhs
end if

效果: