如何通过query实现在程序中往DBGride中动态添加列;

[ttwandln]

请在伙来一下帮帮忙,有源码者高分,分不够可以再加;

[zhlwyy]

query1.params.parambyname(0).Value:=edit1.text;

[getit911]

DBGride自己可以控制列的多少。

[ttwandln]

我就是想在原有的列的前提下,

通过程序,
非改动SQL,

再增加一列

[luofs]

DGrid1.Columns.Add; //增加一列
////////////////////////////////控制某一列的属性
DGrid1.Columns.Items[n].FieldName:='Filedname';
DGrid1.Columns.Items[n].Title.Caption:='标题名';
DGrid1.Columns.Items[n].Width:=200;
DGrid1.Columns.Items[n].ReadOnly:=true;
/////////////////////////////////////////////////////

[Dreamnest]

定义：Column: TColumn

代码：
Column := DBGrid.Columns.Add
Column.FieldName := ...//Query中对应要增加的字段名
Column.Width := ...
Column.Title.Caption := ...