PB中的informix查询优化

arthur1980

PB中函数的语句如下：
double lde_ye
String ls_sql
if right(as_kmset,1)="," then
as_kmset=left(as_kmset,len(as_kmset) -1)
end If
if trim(as_kmset)="" or IsNull(as_kmset) then return 0
ls_sql ="Select Sum(ye)  From bjh_base "
ls_sql =ls_sql + " Where  (bjhbmdm = '"+as_bjhbm+"')"
ls_sql =ls_sql +" And (yy = '"+as_yy+"') And (mn = '"+as_mn+"') And (bjhkm in ("+as_kmset+")) "+" And (sblx = '"+as_sblx+"')"
Declare c1 Dynamic Cursor For Sqlsa;
Prepare Sqlsa From :ls_sql;
Open c1;
fetch c1 into :lde_ye;
if sqlca.sqlcode <> 0 then
messagebox("提示信息","取数据出错!"+sqlca.SQLErrText, stopsign!,OK!,1)
end if
if isnull(lde_ye) then lde_ye=0
close c1;
return lde_ye

该表总记录数：3848965
以上sql每个单位需循环执行7500左右，大概要3分钟时间，大概300家单位
程序是否需要改进，是否需要用临时表或者存储过程，望各位指教，怎么样才提高效率。

wuicpp

写一个存储过程用group by实现一下，应该比循环块