请教怎么复制Dataset

请问如何复制Dataset
两个query之间复制。我用的uniquery，用assign（）试了不行。
[解决办法]
//vSrcCDS源数据集， vTgtCDS 目标数据集
var
  i,c:integer;
begin
  vTgtCDS.Close;
  vTgtCDS.FieldDefs.Clear;
  for i:=0 to vSrcCDS.FieldDefs.Count-1 do begin
    vTgtCDS.FieldDefs.Add(vSrcCDS.Fields[i].FieldName,vSrcCDS.Fields[i].DataType,vSrcCDS.Fields[i].Size,vSrcCDS.Fields[i].Required);
  end;
  vTgtCDS.CreateDataSet;
  vSrcCDS.First;
  While not vSrcCDS.Eof do 
  begin
    vTgtCDS.Append;
    for c:=0 to vSrcCDS.Fields.Count-1 do begin
      vTgtCDS.Fields[c].Value:=vSrcCDS.Fields[c].Value;
    end;
    vTgtCDS.Post;
    vSrcCDS.Next;
  end;
end;