//////////////////////////////////////////////
ClientDataSet1.FieldDefs.Clear;
ClientDataSet1.FieldDefs.Add('doc_id', ftString,20);
ClientDataSet1.FieldDefs.Add('doc_name', ftString, 20);
ClientDataSet1.CreateDataSet; //创建虚拟表
ClientDataSet1.Open;
ClientDataSet1.Append;
ClientDataSet1.FieldByName('doc_name').AsString := 'aa';
ClientDataSet1.FieldByName('doc_id').AsString:= '11';
ClientDataSet1.Post;
ClientDataSet1.AppendRecord(['22','bb']);
DataSource1.DataSet := ClientDataSet1;
cx_test.DataController.DataSource := DataSource1;
////////////////////////////////////////////////
function Tfrm_doc_sum.CreateTableInMemory(
const AFieldDefs: TFieldDefs): TDataSet;
var
TempTable:TClientDataSet;
begin
TempTable:=nil;
Result:=nil;
if AFieldDefs<>nil then
begin
try
TempTable:=TClientDataSet.Create(Application);
TempTable.FieldDefs.Assign(AFieldDefs);
TempTable.CreateDataSet;
Result:=(TempTable as TDataSet);
Except
if TempTable<>nil then
TempTable.Free;
Result:=nil;
raise;
end;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
ADataSet:TDataSet;
begin
ADataSet:=TDataSet.Create(Self);
with ADataSet.FieldDefs do
begin
Add('item',ftString,40,False);
Add('is_nh',ftString,10,False);
Add('dosage',ftString,10,False);
Add('item_num',ftString,10,False);
Add('item_id',ftString,20,False);
Add('price',ftString,20,False);
Add('spec',ftString,20,False);
Add('unit',ftString,10,False);
Add('times',ftString,10,False);
Add('days',ftString,10,False);
end;
{
with DataSource1 do
begin
DataSet:=CreateTableInMemory(ADataSet.FieldDefs);
DataSet.Open;
DataSet.Append;
DataSet.FieldByName('item').AsString:='Woody';
DataSet.FieldByName('item_id').AsInteger:=9527;
DataSet.FieldByName('dosage').AsString:='Woody';
DataSet.FieldByName('item_num').AsInteger:=9527;
DataSet.FieldByName('price').AsString:='Woody';
DataSet.FieldByName('spec').AsInteger:=9527;
DataSet.FieldByName('unit').AsString:='Woody';
DataSet.FieldByName('times').AsInteger:=9527;
DataSet.FieldByName('days').AsString:='Woody';
DataSet.FieldByName('is_nh').AsInteger:=9527;
DataSet.Post;
end;
}
------清空内存表
1.clientdataset.EmptyDataSet;
本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1293416 ，如需转载请自行联系原作者
