我想把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;
解决方案 »
- 报表控件请求增加事件和方法
- [Error] unDM2.pas(1061): Undeclared identifier: 'VarArrayOf'
- fastreport3 中怎样将某个memo为零的那一行全部不打印?
- ACCESS 的某个字段重新赋值
- 购买毕业设计,题目(超市收银系统),开发工具不限!
- 查询问题 急 在线等待
- dll中MDI窗口问题
- 大家给我推荐几个delphi的好战把!!
- RadioButton1查询问题
- 我想问一下,程序做好后,直接拷贝文件发布,和做一个安装包,对于最后的使用有什么不同??
- 在哪可以下载 DBGridEh 控件
- 高手请进:那里有使用起来很方便的TREELIST或TREEVIEW控间吗?
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;