表间计算问题？

Question

下面是interbase的DSQL 
create proceduce update_kc
as
   declare xdm char(2);
begin
   For select dm from cl into :xdm do
begin
update cl
set cl.kc= kc-(select sum(b.xs) from kc b 
             where b.dm=:xdm)
where kc.dm=:xdm
end;

Answer 1

我是在delphi中使用的SQL语句，其它的不会，请专家们再帮助解决为感！！！

Answer 2

select kc.dm,sum(cl.kc-kc.xs) AS KC from kc join cl on kc.dm=cl.dm group by  kc.dm