TClientDataSet追加字段问题

ecjtuhr 2010-09-19 10:19:26

我用select 语句查出了4个字段放在TClientDataSet数据集中，由于有个字段是字典代码，因此我想在这个数据集中追加一个字段，用于存放字段名称，
select a,b,c,d from table_A 查出的数据类型为OleVariant，放在QryData，之后，

TClientDataSet1.data:=QryData;
现在我要增加一个e字段，使TClientDataSet1包含5个字段，
TClientDataSet1.FieldDefs.Add('e',ftstring,90);
TClientDataSet1.CreateDataSet;
TClientDataSet1.Open;
可报错说找不到字段‘e'，请教网友如何解决？

...全文

156 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

ecjtuhr 2010-09-23

打赏
举报

回复

[Quote=引用 1 楼 kye_jufei 的回复:]
用SQL動態語句去處理不可以嗎...
[/Quote]
能否说详细点？在aql语句中增加一个字段？
select a,b,c,d,aa e from table_A ?

kye_jufei 2010-09-20

打赏
举报

回复

用SQL動態語句去處理不可以嗎...

genispan 2010-09-20

打赏
举报

回复

你应该先定义好ClientDataSet的所有字段然后遍历数据库查询的另外一个数据集动态往ClientDataSet对应的字段添加数据

delphi保存文件到数据库中

数据源记录集：ClientDataSetSource；目标记录集：ClientDataSetCopy 1）复制一条记录。 ClientDataSetCopy.Close; ClientDataSetCopy.Fields.Clear; ClientDataSetCopy.FieldDefs.Clear; //复制字段定义 ClientDataSetCop

procedure TForm1.Button6Click(Sender: TObject); var dsTemp:TClientDataSet; begin dsTemp:=TClientDataSet.Create(nil); { 添加字段 } with dsTemp.FieldDefs.AddFieldDef do begin Name := 'ID'; ...

与一般的数据集组件不同，TClientDataSet使用的技术比较特别，本着高速度、低存储需求的原则TClientDataSet的内部使用了两个数据存储源。第一个是其Data属性，这是当前内存数据的视图，反映了所有的数据改变。如果用户从数据中删除一条记录，则此记录将从Data中消失，相应地，加入一条新记录后，此记录便存在Data属性中了。另一个数据源是Delta属性，故名思义，即增量的意思，这个属

RAD Studio 10.2.3 测试√ procedure TForm_DBControl.Button_AppendClick(Sender: TObject); begin ClientDataSet_1.Append; with ClientDataSet_1.Fields do begin FieldByName('字段1').AsString := '追加1'; FieldByName('字段2').AsString := '追加2'; FieldByN

数据库相关

2,507

社区成员

88,447

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章