PB绑定dropdownlistbox

string name
declare my_cur cursor for

select djmc from sys_djlb using sqlca;

open my_cur;
 fetch my_cur into :name;

 do while sqlca.sqlcode=0
   ddlb_1.additem(name)
 fetch my_cur into :name;
loop
close my_cur;

ddlb_1.selectitem(1)