PowerBuilder下拉框使用游标加载数据库表中某一列数据

连接数据库代码省略
写入Open事件中:

string ls_name
declare cs_emp cursor for select 字段名 from 表名;
ddlb_1.reset() //清除LisBox中的内容
open cs_emp;//打开游标
fetch cs_emp into :ls_name;//提取数据
do while sqlca.sqlcode = 0
 	ddlb_1.additem(ls_name)
 	fetch cs_emp into :ls_name;
loop;
close cs_emp;