如何动态添加TQuery的字段???

[fox2001]

各位Delphi高手,在TTable中,用FieldDefs.Add(...)和CreateTable可以动态添加字段,那么在TQuery中由于无CreateTable方法,如何动态添加字段?请高手指教!

[prometheusphinx]

直接传SQL语句,例如
Query1.SQL.Text := 'Alter Table T_ABC Add (XXX VarChar(10))';

[urchinjj]

直接传SQL语句,例如
Query1.SQL.Text := 'Alter Table T_ABC Add (XXX VarChar(10))';

你这个是在query连接的dataset里增加，如果在query查询后获得的临时数据集里增加那》？

[知足常乐]

你可以增加计算字段

[urchinjj]

你可以增加计算字段

俺还没用过那，，怎么动态增加？我知道可以静态增加的，，因为加几列可能事前是不知道的，

[fox2001]

我的意思是:Query只是作为临时数据集保存某些数据表(这些数据表的字段不一定相同)中的记录．可能某种条件下保存暂存Ａ数据表中的一些记录，这时需要动态将Ａ数据表中的字段添加进Query中，然后再复制记录；可能某种条件下保存暂存Ｂ数据表中的一些记录，这时需要动态将Ｂ数据表中的字段添加进Query中，然后再复制记录．当然,在添加字段前需清空原来字段!

[horlen]

我也不知道怎么动态的在字段编辑器里加字段，我前些天试了好几个小时也搞不出来，不过是可以删除字段编辑器中的字段的

[fox2001]

Delphi高手啊,请站出来!

[fox2001]

Delphi高手啊,请站出来!

[deeper]

guanzu

[fox2001]

请教高手!

[urchinjj]

帮你up吧，

[abc32644]

很简单， 利用临时表 最好是本地表
每次查询后用BatchMove1把数据COPY到如临时表，然后用QUERY查询这个固定的临时表。
如：

with Table1 do
begin
Active := False;
TableName := 'CustInfo';
TableType := ttParadox;
with FieldDefs do
begin
Clear;
Add('Field1', ftInteger, 0, False);
CreateTable;
end;

WITH QUERY1 DO
BEGIN
CLOSE；
SQL.CLEAR;
SQL.ADD('SELECT * FROM 你所用查询的数据');
OPEN;
BatchMove1.Source:=QUEYR;
BatchMove1.Destination := Table1;
BatchMove1.Execute;
END；

[fox2001]

楼上的兄弟的方法不错,可以满足保存数据表某些字段数据的目的,但Query中添加字段的问题还未解决,是不是Query无法动态添加字段?谁能给我一个明确的答复?