方法一:
begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Recordset:=ADOQuery1.Recordset.Clone(Integer(ltOptimistic));
DataSource1.DataSet:=ADOQuery;
end;
方法二:
begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Recordset:=ADOQuery1.Recordset._xClone;
DataSource1.DataSet:=ADOQuery;
end;
方法三:
begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Clone(ADOQuery1,ltOptimistic);
DataSource1.DataSet:=ADOQuery;
end;