把TClientDataSet当作一个内存数据表

 

1. var   
2.         F_CData:TClientDataset;   
3.   begin   
4.         F_CData   :=   TClientDataset.Create(nil);   
5.   F_CData.FieldDefs.Add(产品名称,ftString,   30,   False);   
6.   F_CData.FieldDefs.Add(本月实际,ftString,   20,   False);   
7.   F_CData.FieldDefs.Add(本季累计,ftString,   20,   False);   
8.   F_CData.FieldDefs.Add(本年累计,ftString,   20,   False);   
9.   F_CData.CreateDataSet;   
10.   F_CData.Open;   
11.     
12.             while   not   AdoDatasetOut.Eof   do   begin   
13.   F_CData.Append;   
14.   F_CData.Fields[0].AsString   :=   AdoDatasetOut.Fields[0].Value;   
15.   F_CData.Fields[1].AsString   :=   AdoDatasetOut.Fields[1].Value;   
16.   F_CData.Fields[2].AsString   :=   AdoDatasetOut.Fields[2].Value;   
17.   F_CData.Fields[3].AsString   :=   AdoDatasetOut.Fields[3].Value;   
18.   AdoDatasetOut.Next;   
19.             end;   
20.   end;