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)
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)