pb ddplb不能从数据库获取值

string ls_lxmc,ls_select,ls_print,ls_sfdy,ls_item

DECLARE cur_zxklx CURSOR FOR 
SELECT "YYGLI38"."SLXXX02", 
"YYGLI38"."SLXXX05", 
"YYGLI38"."SLXXX06", 
nvl("YYGLI38"."SLXXX07",'0') 
FROM "YYGLI38" 
WHERE "YYGLI38"."SLXXX04" = '0' 
ORDER BY "YYGLI38"."NLXXX03" ASC ;

ddplb_1.reset( )
open cur_zxklx;

do while 1=1
fetch cur_zxklx into :ls_lxmc,:ls_select,:ls_print,:ls_sfdy;
if sqlca.sqlcode<>0 then exit

ls_item=ls_lxmc+fill(' ',60 - len(ls_lxmc))+'|'+ls_select+'|'+ls_print+'|'+ls_sfdy
ddplb_1.additem( ls_item, 1)

loop

close cur_zxklx;

return 1

转载于:https://www.cnblogs.com/szxiaofei14/articles/3953837.html