PB高手进 高分伺候
发布网友
发布时间：2024-10-20 13:01
我来回答
共1个回答
热心网友
时间：2024-10-20 23:48
// 第一处说明：得到当前要处理的数据窗口， dw_s 或 dw_list 当中的一个
string lt_count
if dw_s.visible=true then
idw_active=dw_s
elseif dw_list.visible=true then
idw_active=dw_list
end if
//第一处说明结束
//第二处说明
if idw_active.getrow()<=0 then //没有选择任何行
IF idw_active.retrieve(gd_rq1,gd_rq2) = -1 THEN //检索数据
SQLCA.of_Rollback()
MessageBox("Error","Retrieve error") //如果检索失败则报错
ELSE
SQLCA.of_Commit() //成功，则提交
idw_active.SetFocus() //当前数据窗口得到焦点
END IF
end if
//第二处说明结束。
//第三处说明，从数据库中寻找符合条件的数据，将统计结果写入lt_count
select count(distinct(gzh)) into :lt_count from a.cprkd
where rkrq >= :gd_rq1 and rkrq < :gd_rq2
and gzh not in (select gzh from a.cprkd where rkrq >= add_months(:gd_rq1,-1) and rkrq < add_months(:gd_rq2,-1));
//第三处说明结束
//第四处说明，将结果显示在sle_2的文本框中
sle_2.text=lt_count
//第四处说明结束。
