菜鸟请教DBTEXT的DataField的动态设置问题？

Question

procedure TITXXFM.Button1Click(Sender: TObject);
begin
kcdm.QPADA.Active:=true;
with kcdm.QPADA do
begin
close;
sql.Clear;
sql.Add('select BGXX.BGEID as 商品编码,BGXX.BGNAM as 商品名称,BGXX.BGUNW as 计量单位,IAXX.IAQTN2 as 累计库存量,IAXX.IAQTN4 as 当前库存量');
sql.Add('from BGXX,IAXX');
sql.Add('where BGXX.BGEID=IAXX.BGEID');
prepare;
open;
end;
dbtext1.DataField:=kcdm.QPADA.FieldByName('IAQTN2').FieldName; //这一句不知道该如何写？请帮忙
end;总是报错找不到字段，请高手帮忙改一下代码，谢谢！

Answer 1

procedure TITXXFM.Button1Click(Sender: TObject);
begin
kcdm.QPADA.Active:=true;
with kcdm.QPADA do
begin
close;
sql.Clear;
sql.Add('select BGXX.BGEID as 商品编码,BGXX.BGNAM as 商品名称,BGXX.BGUNW as 计量单位,IAXX.IAQTN2 as 累计库存量,IAXX.IAQTN4 as 当前库存量');
sql.Add('from BGXX,IAXX');
sql.Add('where BGXX.BGEID=IAXX.BGEID');
prepare;
open;
end;
dbtext1.DataField:=IAQTN2; //这一句不知道该如何写？请帮忙
//加一行
dbtext1.datasource :=  datasource;
//datasource中Dataset为kcdm.QPADA
end;总是报错找不到字段，请高手帮忙改一下代码，谢谢！

Answer 2

dbtext1.DataField:=IAQTN2; //这一句不知道该如何写？请帮忙
//加一行
dbtext1.datasource :=  datasource;
还是不行！“IAQTN2”没有定义    应该定义为什么类型？

Answer 3

加个Datasouce组建取名为datasource1
属性DataSet为
kcdm.QPADA
dbtext1.DataField:=kcdm.QPADA.FieldByName('IAQTN2').FieldName;
dbtext1.datasource :=  datasource1;

Answer 4

或
dbtext1.DataField:='IAQTN2';
dbtext1.datasource :=  datasource1;

Answer 5

dbtext1.DataField:='累计库存量';
试试