怎样在PB的递归函数中使用游标？

[bgxie]

在PB中自定义递归函数，函数中要使用游标，每次运行此函数时都会出错（游标已经打开），请问各位大虾，在PB的自定义递归函数中怎样才能使用游标？

[li_d_s]

你还是预先把游标内的内容读入数组再用在递归函数中吧

[xlongcn]

声明一个局部Transaction 对象
Transaction tran_x

declare cursor for ....using tran_x;
...

[navy125]

DECLARE cur CURSOR FOR
SELECT "dba"."kaodian"."location"
FROM "dba"."kaodian" ;//可以加入WHERE、、、
open cur;
do
fetch cur into :name;
if sqlca.sqlcode=100 then exit///提取完毕则退出循环
ddlb_1.additem(name)//对提出的数据进行操作
loop while sqlca.sqlcode=0 //循环提取
close cur;