ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select * From 表一';
ADOQuery1.Open;
ADOQuery1.First;//这一句用与不用有没有区别?
ADOQuery2.Close;
ADOQuery2.SQL.Text := 'Insert Into 表二.......)';
while not ADOQuery1.Eof do
begin
ADOQuery2.Parameters.ParamValues['流水号'] := ADOQuery1.FieldByName('流水号').AsInteger;
........
ADOQuery2.ExecSQL;
ADOQuery1.Delete;
end;
以上的代码是将从表一中的数据拷贝到表二，同时删除表一中的数据，代码能正常运行，不懂有没有什么不对的地方，或者有更好的实现方法

------
我的编程起步于ktop，我将永远支持ktop

跟報表看不出來有關係,貼錯區

ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select * From 表一';
ADOQuery1.Open;
ADOQuery1.First;//这一句用与不用有没有区别? //沒有，我都沒用！
ADOQuery2.Close;
ADOQuery2.SQL.Text := 'Insert Into 表二.......)';
while not ADOQuery1.Eof do
begin
ADOQuery2.Parameters.ParamValues['流水号'] := ADOQuery1.FieldByName('流水号').AsInteger;
........
ADOQuery2.ExecSQL;
ADOQuery1.Delete;
end;
以上的代码是将从表一中的数据拷贝到表二，同时删除表一中的数据，代码能正常运行，不懂有没有什么不对的地方，或者有更好的实现方法
在你這種需求下，我會嘗試用 UpdateBatch 的方式來作，在KTOP輸入 UpdateBatch 會有一些範例，但是使用時要注意一些設定：
Note: To use batch updating, the CursorType property of the dataset component must be either ctKeySet (the default) or ctStatic and the LockType property must be ltBatchOptimistic.