ls_sql+="from article_sale_da a,article b "
ls_sql+="where a.aid=b.aid and segregate_id in "+ls_fw+" and dt>='"+ls_dt3+"' and dt<='"+ls_dt2+"'"
ls_sql+=" group by dt "
ls_sql+=" order by dt "
declare cur_seg dynamic cursor for SQLSA;
prepare SQLSA from :ls_sql;
open DYNAMIC cur_seg;
fetch cur_seg into :ldc_q,:ldc_a;
do while sqlca.sqlcode=0
messagebox(string(ldc_q),string(ld_qgs))
of_setxyvalue(li_y,li_ap + k * 7,ldc_a * ld_ags)//6"单点
of_setxyvalue(li_y,li_qp + k * 7,ldc_q * ld_qgs)//6"单点
k+=1
fetch cur_seg into :ldc_q,:ldc_a;
loop
close cur_seg;