这样提取记录对吗

从A表中提取几个ID,使这几个ID的JZ求和得到给定的值ZJZ,使用如下语句,正确吗,帮忙指正.

string id,ls_arr[],id1
real jz,zjz
zjz=给定值
long j,i=0
declare jh_cursor1 cursor for
select id,jz from A using sqlca;
open cursor1;

do while sqlca.sqlcode=0
fetch cursor1 into :id,:jz;
s=s+jz
if s=zjz then
i++;
ls_arr[i] =id
end if
loop
close cursor1;

for j=1 to i
id1=ls_arr[j]
insert into b values(:id1) using sqlca;
commit using sqlca;
next

messagebox('提示','成功!')


[解决办法]
自己试试不就知道了！

直接用DW多方便！
[解决办法]
jf
[解决办法]