怎样用代码让adodataset增加一列？

[weige250]

查询已经完成，我想在数据集中再加一列，用代码怎么写 ？
adodataset1.CommandText:= 'select * from stations '
adodataset1.Open;

[DebugXP]

adodataset1.CommandText:= 'select * from stations union all select '''','''','''' ';
adodataset1.Open;

[「已注销」]

ADODataSet在打开状态无法这样做。

[weige250]

var
field:TField;
adodataset1.Close;
adodataset1.CommandText:= 'select * from stations '
field := TIntegerField.Create(nil);
field.DataSet := ADODataSet1;
field.FieldName := '顺序号';
field.FieldKind := fkCalculated;
adodataset1.Fields.Add(field);

adodataset1.Open;

这样也不行，说adodataset1：field name missing 为什么呢？怎么做？》

[bbsftp]

在控件中右击，有个ADD FIELD，那里可以加列

[weige250]

加了之后，其他的列就用不了了

[bbsftp]

会吗？

[yuejun]

你用* 号已经把所有列查出来了, 还加什么列啊

如果你是要显示的话, 可以直接在组件上增加列,

var
column : TColumn;
begin
column := dbgrid1.Columns.Add;
column.FieldName := '新增列';