我用的是PB5,程序流程如下,请看有什么不对的地方:
open auto1ccur;
open auto2acur;
fetch auto1ccur into :a,:b;
sqlcode2=sqlca.sqlcode
fetch auto2acur into :a,:b;
if sqlcode2=0 or sqlca.sqlcode=0 then
...
close auto1ccur;
close auto1acur;
open auto1ccur;
if sqlca.sqlcode=0 then
do
fetch auto1ccur into :a,:b;
...
loop sqlca.sqlcode=0
end if
close auto1ccur;
open auto2ccur;
if sqlca.sqlcode=0 then
do
fetch auto1ccur into :a,:b;
...
loop sqlca.sqlcode=0
end if
close auto2ccur;
end if
to teva(静夜狼):
the program should like following:
open cur1;
open cur2;
fetch cur1 into ..;
fetch cur1 into ..;
if .. then
..
close cur1;
close cur2;
..
else // I missed this part
close cur1;
close cur2;
end if