Oracle 复制一条 改主键,在一个表中复制一条同样的记录到同一个表中，只修改主键内容(200分)...

摘自：HUBDOG大虾的葵花宝典

通常，你完成此项任务时使用 TBatchMove 构件。但 TBatchMove 也有不合适的情况：

- 你并不希望拷贝所有的记录，也不想使用过滤器。

- 你希望用到目的 DataSet 的有效事件(如 BeforPost，OnValidate，等)。

- 或者更坏的情况，两 DataSet 的结构并不相同。

使用下面的简单过程，上面的问题都可以被解决，所有字段中的数据将被拷贝到另外一个 Dataset 中的同名字段中。但这里面也存在一些限制：

- 不能拷贝查找和计算字段

- 当存在相同字段名但数据类型不同时，你需要先使用 Assign 判断。

- 当然，目的字段不能是只读的。

procedure CopyRecord(Source, Destination: TDataSet);

var Ind:longint;

SField, DField: TField;

begin

for Ind:=0 to Source.FieldCount - 1 do

begin

SField := Source.Fields[ Ind ];

DField := Destination.FindField( SField.FieldName );

if (DField <> nil) and (DField.FieldKind = fkData) and

not DField.ReadOnly then

if (SField.DataType = ftString) or

(SField.DataType <