string ls_value
declare cursor1 cursor for
SELECT distinct tb_syscfg.c_value
FROM tb_syscfg (nolock)
WHERE tb_syscfg.c_class = '促销单类型';
open cursor1;
fetch cursor1 into :ls_value;
do while sqlca.sqlcode=0
ddlb_1.additem(ls_value)
fetch cursor1 into :ls_value;
loop
close cursor1;//关闭游标
PB游标取数据到ddlb
最新推荐文章于 2022-05-28 16:14:33 发布