我想把TClientDataSet当作一个内存数据表,怎么设置才能让它可写。!!cdsClient: TClientDataSet;
with cdsClient do
begin
FieldDefs.Add('name', ftFixedChar,16,TRUE);
FieldDefs.Add('sex', ftInteger,0,TRUE);
CreateDataSet();
end;
with cdsClient do
begin
FieldDefs.Add('name', ftFixedChar,16,TRUE);
FieldDefs.Add('sex', ftInteger,0,TRUE);
CreateDataSet();
end;
解决方案 »
- 100分求vcl skin4.11 的皮肤制作工具
- delphi是否可以同时控制视频卡usb视频头
- 寻类似于outLook日历这样的控件
- 如果query中添加了lookup字段,如何将与它相连的dbgrid中的数据applyupdates到表中
- 救教一个用QUERY创建数据库的问题
- 我现在编了一个小程序,使用quickrpt控件打印文件,在本机上是可以运行的,在别的机子上运行程序就出错了,是不是它还要什么运行库等东西
- 安完SUIpack4.0 之后运行出错。救命!!
- 将AVI文件的第一帧图读出,然后转换为位图,应该怎么做,急(解决后马上结贴)!!!
- 关于ADO中类似CachedUpdates的问题,只是手头没有资料所以必须,有劳各位。
- 如何设置CLIENTSOCKET的LOCALPORT,请教各位大手。
- 关于ACCESS字段类型问题,在级等待!
- 请问哪里有透明的组件包?比如透明的MEMO1\透明的BUTTON
F_CData:TClientDataset;
begin
F_CData := TClientDataset.Create(nil);
F_CData.FieldDefs.Add('产品名称',ftString, 30, False);
F_CData.FieldDefs.Add('本月实际',ftString, 20, False);
F_CData.FieldDefs.Add('本季累计',ftString, 20, False);
F_CData.FieldDefs.Add('本年累计',ftString, 20, False);
F_CData.CreateDataSet;
F_CData.Open; while not AdoDatasetOut.Eof do begin
F_CData.Append;
F_CData.Fields[0].AsString := AdoDatasetOut.Fields[0].Value;
F_CData.Fields[1].AsString := AdoDatasetOut.Fields[1].Value;
F_CData.Fields[2].AsString := AdoDatasetOut.Fields[2].Value;
F_CData.Fields[3].AsString := AdoDatasetOut.Fields[3].Value;
AdoDatasetOut.Next;
end;
end;