powerbuilder 下拉框控件数据库增加数据，游标的使用

powerbuilder 下拉框控件数据库增加数据

String ls_orddspno,ls_dspno

//判断是否存在订单号并赋值派工单号
declare cs_dspno cursor for select f001 FROM T076;
open cs_dspno;
fetch cs_dspno into :ls_dspno;
do while sqlca.sqlcode = 0
ddlb_1.additem(ls_dspno)
fetch cs_dspno into :ls_dspno;
loop;
close cs_dspno;