delphi报错“ADOquery1:field'ze'not found”
procedureTForm21.Button1Click(Sender:TObject);beginifcombobox1.text='-10~+10'thenbegi...
procedure TForm21.Button1Click(Sender: TObject);
begin
if combobox1.text='-10~+10' then begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select cwymc,xh from Zeroequilibrium where cwymc='''+edit1.text+'''and xh= '''+edit3.text+'''';
ADOQuery1.Open;
if (adoquery1.IsEmpty) then
begin
showmessage('不存在历史数据');
end
else begin
Edit2.Text := ADOQuery1.fieldbyname('ze').AsStrin;这句有问题
a:=strtofloat(Edit2.Text );
if a<=0.02 then begin
showmessage('给项目不符合校准规范!');
end;
end;
end;
end;
end.
数据库里有字段名ze,求解为什么找不到。
adoquery里也没有设置任何字段名 展开
begin
if combobox1.text='-10~+10' then begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select cwymc,xh from Zeroequilibrium where cwymc='''+edit1.text+'''and xh= '''+edit3.text+'''';
ADOQuery1.Open;
if (adoquery1.IsEmpty) then
begin
showmessage('不存在历史数据');
end
else begin
Edit2.Text := ADOQuery1.fieldbyname('ze').AsStrin;这句有问题
a:=strtofloat(Edit2.Text );
if a<=0.02 then begin
showmessage('给项目不符合校准规范!');
end;
end;
end;
end;
end.
数据库里有字段名ze,求解为什么找不到。
adoquery里也没有设置任何字段名 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询