以下while代码如何进行优化？（入库后修改库存表中的现存数量）

roger12

//修改库存表中的现存数量
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from RukuTmp');
ADOQuery1.Open;
//从入库临时表中查找所有数据
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select * from Kucun where ChID=:a');
  ADOQuery2.Parameters.ParamByName('a').Value:=ADOQuery1.fieldbyname（'ChID').AsString;
  ADOQuery2.Open;
  ADOQuery2.Edit;
  ADOQuery2.FieldByName('Kcsl').AsFloat:=ADOQuery2.fieldbyname('Kcsl').AsFloat
    +ADOQuery1.fieldbyname('Rksl').AsFloat;   
  ADOQuery2.Post;
  ADOQuery1.Next;
end;

roger12

能不能一次性修改库存表中的数据，而不要用while循环？

xclzc17

update Kucun
set Kcsl=Kucun.Kcsl+RukuTmp.Rksl
from Kucun ,RukuTmp
where Kucun.ChID=RukuTmp.ChID

roger12

库存数量和库存金额都可以这样改
update Kucun
set Kcsl=Kucun.Kcsl+RukuTmp.Rksl,Kcje=Kucun.Kcje+RukuTmp.Rkje
from Kucun ,RukuTmp
where Kucun.ChID=RukuTmp.ChID

可是库存单价呢？
库存单价是用库存金额除以库存数量得到的。
update Kucun set Kcdj=Kcje/Kcsl from Kucun,RukuTmp
where Kucun.ChID=RukuTmp.ChID and Kucun.Kcsl<>0（库存数量不为0）
update Kucun set Kcdj=0 from Kucun,RukuTmp
where Kucun.ChID=RukuTmp.ChID and Kucun.Kcsl=0（库存数量为0）

四月天

用SUM求和
with ADOQuery1 do
begin
  close;
  sql.clear;
  sql.add('update Kucun set Kcsl = c.Kcsl from (select ChID,sum(Kcsl) as Kcsl from RukuTmp group by ChID) c, warehouse where Kucun.ChID =c.ChID ');
  execsql;
end;

roger12

xclzc17 ( )
我试了，你的方法不对，Update后不能连接两个表。

xclzc17

什么数据库?不能连接两个表是什么意思?

roger12

我是Access数据库，运行时提示：
语法错误（操作符丢失）在查询表达式'Kucun.Kcsl+RukuTmp.Rksl from Kucun'中。

roger12

所以我判定是',RukuTmp'没有被程序识别出来，是不是update后只能跟一个表？

xclzc17

哦,可能是Access不支持这种SQL语法吧，你可以试一下四月天 的方法。

如果还不行，你就用循环吧
ADOQuery1.Open;
//从入库临时表中查找所有数据
ADOQuery1.DisableControls;//加上这句话
try
ADOQuery1.First;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('update Kucun set Kcsl=Kcsl+:Rksl where ChID=:ChID');
while not ADOQuery1.Eof do
begin
  ADOQuery2.Parameters.ParamByName('Rksl').Value:=ADOQuery1.fieldbyname('Rksl').AsFloat;
ADOQuery2.Parameters.ParamByName('ChID').Value:=ADOQuery1.fieldbyname（'ChID').AsString;
ADOQuery2.ExecSQL

  ADOQuery1.Next;
end;
finally
ADOQuery1.EnableControls;
end;