string ls_cop,ls_cops

declare cop_cursor cursor for
select cop_id from sys_cop where operations_center is not null and operations_center<>"" and operations_center=:ai_center using sqlca;

open cop_cursor;
?fetch cop_cursor into :ls_cop;
do while sqlca.sqlcode=0??
??ls_cops=ls_cops+","+ls_cop
????? fetch cop_cursor into :ls_cop;
loop
close cop_cursor;
ls_cops=mid(ls_cops,2)
messagebox("ls_cops",ls_cops)

PowerBuilder游標(biāo)的使用