//以下是为了加快程序运行,不需每资都重排ID, 除非你的ID是要印出来
Insert: 以插入点之ID + 10 ( ID mod 100 = 0)
ID + 5 ( ID mod 10 = 0)
ID + 1 ( ID mod 5 = 0)
三种插入方式行不通时, 则先行重排:
首先用Query选取要重排的单资料
用一循环:
With Query do
For i := 1 to RecordCount do
begin
edit;
FieldByName('ID').AsInteger := I * 100;
post;
next;
end;