当前位置:主页>仓库管理软件> 列表

AdoDataaSet是不是不能动态添加计算字段啊??? 找进销存系统课程设计

记账软件版1楼: 高手们帮帮我,下面的代码怎么不能动态加计算字段?
程序好像没错啊!!
procedure TForm1.BitBtn1Click(Sender: TObject);
var indexno1:tintegerfield;
begin
adodataset1.Close;
adodataset1.CommandText:=''select * from bas14'';
indexno1:=TIntegerField(adodataset1);
indexno1.FieldKind := fkCalculated;
indexno1.FieldName := ''indexno'';
indexno1.DataSet:=adodataset1;
adodataset1.Fields.Add(indexno1);
//datasource1.DataSet:=adodataset1;
//dbgrid1.DataSource:=datasource1;
adodataset1.Open;
end;

2楼: 我靠,看贴不回贴啊! 如进销存系统课程设计

3楼: 自已来一下!

4楼: 报什么错?
ado数据集动态添加字段的例子
procedure TForm1.Button1Click(Sender: TObject);
var
T:TStringField;
begin
Adoquery1.Close;
T:=TStringField.Create(ADOQuery1);
T.FieldName:=''序号'';
T.Index:=Adoquery1.FieldCount;
T.DataSet:=Adoquery1;
T:=TStringField.Create(ADOQuery1);


T.FieldName:=''姓名'';
T.Index:=Adoquery1.FieldCount;
T.DataSet:=Adoquery1;
Adoquery1.FieldDefs.Update;
Adoquery1.Open;
end;

5楼: adoquery1:field "序号''"没发现,而我的数据库中存在该字段!

6楼: 高手都不在啊!

记账软件版7楼: 哪是数据集中没有该字段

8楼: 帮忙帮到底~