PB中游标的使用

string ls_name
declare readdate cursor for select mc from bm where dwid='1';//创建游标并赋值
open readdate;//打开游标
fetch readdate into :ls_name;//从游标中取值,每执行一次游标就会读取下一条数据
do while sqlca.sqlcode=0 //遍历游标
ddlb_1.additem(ls_name)
fetch readdate into :ls_name;
loop
close readdate;//关闭游标