你的数据库路中有自动累加的字段吗?
for i:=开始的累加字段的号码 to最后一个累加的字段的号码 do
Begin
Adoquery1.Close;
SQL.Clear;
SQL.Add('Update table set column =:aa Where id=:id' );
Parameters.ParamByName('id').Value:=i//(自动累加的号码);
Parameters.ParamByName('aa').Value:=参数;
ExecSQL;
End;
个人看法 不要见笑!