M
myjane
Unregistered / Unconfirmed
GUEST, unregistred user!
{***********************************************************************}
{这段代码功能是通过ADOTABLE1联接的临时表,来更新ysskhz表中的两个字段内容.}
{存盘时有时不能全部更新ysskhz表中内容(有部分已更新,有部分没有被更新) }
{,单也没有提示出错.请看如下代码是否有错,或者还有其他方法,先在此谢过!! }
{***********************************************************************}
adotable1.Open;
adotable1.First;
while not adotable1.Eof do
begin
with lrysado do
begin
close;
sql.Clear;
sql.add('update ysskhz');
sql.add('set yshz=yshz+:stk,yu=:yuww');
sql.add('where khdm=:dm');
parameters.ParamByName('dm').value:=adotable1khdm.asstring;
Parameters.ParamValues['Stk']:=adotable1skje.asfloat;
parameters.ParamByName('yuww').value:=adotable1yuw.asstring;
execsql;
end;
adotable1.Next;
end;//while...do
{这段代码功能是通过ADOTABLE1联接的临时表,来更新ysskhz表中的两个字段内容.}
{存盘时有时不能全部更新ysskhz表中内容(有部分已更新,有部分没有被更新) }
{,单也没有提示出错.请看如下代码是否有错,或者还有其他方法,先在此谢过!! }
{***********************************************************************}
adotable1.Open;
adotable1.First;
while not adotable1.Eof do
begin
with lrysado do
begin
close;
sql.Clear;
sql.add('update ysskhz');
sql.add('set yshz=yshz+:stk,yu=:yuww');
sql.add('where khdm=:dm');
parameters.ParamByName('dm').value:=adotable1khdm.asstring;
Parameters.ParamValues['Stk']:=adotable1skje.asfloat;
parameters.ParamByName('yuww').value:=adotable1yuw.asstring;
execsql;
end;
adotable1.Next;
end;//while...do