alter table 加个新字段qry.close
qry.sql.clear;
qry.sql.add('select * from tbl order by field');
qry.open;
i:=1;
while not qry.eof do
begin
qry.edit;
qry.fieldsbyname('新字段').asinteger :=i;
qry.post;
end;
qry.sql.clear;
qry.sql.add('select * from tbl order by field');
qry.open;
i:=1;
while not qry.eof do
begin
qry.edit;
qry.fieldsbyname('新字段').asinteger :=i;
qry.post;
end;
纯sql 要用游标