为何找不到这个字段？

[Flether1985]

procedure Tryxxfrm.Button1Click(Sender: TObject);
var
ygbh,ygxm,sqltext1,sqltext2: string;
begin
if(combobox1.text='按编号查询')then
begin
ygbh:=edit1.text;
if(radiobutton1.Checked=true)then
with datamodulemis.adoqueryyg do
begin
close;
sql.Clear;
sqltext1:='select ygbh as '+'''员工编号'+''''+',ygxm as'+'''员工姓名'+''''+',bmm as'+'''部门'+''''+',zwmc as'+'''职务'+''''+',lxdh as'+'''联系电话'+''''+',dzyj as'+'''电子邮件'+''''+',yg.bz as '+'''备注'+'''';
sqltext2:='from yg ,zw ,bm where ygbh='+''''+ygbh+''''+'and yg.bmbh=bm.bmbh and yg.zwbh=zw.zwbh';
sql.Add(sqltext1+sqltext2);
open;
if recordcount<>1 then
showmessage('没有这个编号的员工！');
end

else
with datamodulemis.adoqueryyg do
begin
close;
sql.Clear;
sqltext1:='select ygbh as '+'''员工编号'+''''+',ygxm as'+'''员工姓名'+''''+',bmm as'+'''部门'+''''+',zwmc as'+'''职务'+''''+',lxdh as'+'''联系电话'+''''+',dzyj as'+'''电子邮件'+''''+',yg.bz as '+'''备注'+'''';
sqltext2:='from yg,zw ,bm where ygbh like'+QuotedStr('%'+ygbh+'%')+'and yg.bmbh=bm.bmbh and yg.zwbh=zw.zwbh';
sql.Add(sqltext1+sqltext2);
open;
if recordcount=0 then
showmessage('没有这个编号的员工！');
end ;

end

else
begin
ygxm:=edit1.text;
if(radiobutton1.Checked=true)then
with datamodulemis.adoqueryyg do
begin
close;
sql.Clear;
sqltext1:='select ygbh as '+'''员工编号'+''''+',ygxm as'+'''员工姓名'+''''+',bmm as'+'''部门'+''''+',zwmc as'+'''职务'+''''+',lxdh as'+'''联系电话'+''''+',dzyj as'+'''电子邮件'+''''+',yg.bz as '+'''备注'+'''';
sqltext2:= 'from yg ,zw ,bm where ygxm='+''''+ygxm+''''+'and yg.bmbh=bm.bmbh and yg.zwbh=zw.zwbh';
sql.Add(sqltext1+sqltext2);
open;
if recordcount<>1 then
showmessage('没有这个名字的员工！');
end
else


with datamodulemis.adoqueryyg do
begin
close;
sql.Clear;
sqltext1:='select ygbh as '+'''用户编号'+''''+',ygxm as'+'''用户姓名'+''''+',bmm as'+'''部门'+''''+',zwmc as'+'''职务'+''''+',lxdh as'+'''联系电话'+''''+',dzyj as'+'''电子邮件'+''''+',yg.bz as '+'''备注'+'''';
sqltext2:= 'from yg,zw ,bm where ygxm like'+QuotedStr('%'+ygxm+'%')+'and yg.bmbh=bm.bmbh and yg.zwbh=zw.zwbh';
sql.Add(sqltext1+sqltext2);

open;
if recordcount=0 then
showmessage('没有这个名字的员工！');
end ;
end;
edit2.Text:= datamodulemis.ADOQueryyg.FieldByName('ygbh').asstring;//问题出在这里
我只是想把表格里的一条记录的每个字段逐个读取到edit里，但是它提示“field 'ygbh' not found”其实在dbgrid里我已经查出了结果，为何它还说找不到呢？

[喝口水]

注意你这句ygbh as '+ ' ' '用户编号，你已经把Ygbh重命名为“用户编号”了，你怎么还会找到呢，试试下面这句
edit2.Text:= datamodulemis.ADOQueryyg.FieldByName( '用户编号 ').asstring

[brightyang]

又见中文字段......

郁闷了

[wangy2j]

字段都用英文的
可能服务器就是英文版或繁体版的，容易出问题

[jing12]

"hys_427"为正解，也可：
edit2.Text:= datamodulemis.ADOQueryyg.Fields[0].asstring;
//这种方式只需知道字段的位置，不需知道字段的名称，不过存在一定弊端