关于网友提出的“ adoquery 的错误 field ' ' not found 解决后马上散分。以前遇到过这样的问题解决了。后来又忘记了。”问题疑问，本网通过在网上对“ adoquery 的错误 field ' ' not found 解决后马上散分。以前遇到过这样的问题解决了。后来又忘记了。”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： adoquery 的错误 field ' ' not found 解决后马上散分。以前遇到过这样的问题解决了。后来又忘记了。
描述: //一个客户资料的统计图，共用一个Tadoquery:Adoquery1
如果先点击‘客户等级’统计那么程序可以执行，但是再点击‘客户类型’统计时提示：field '客户等级' not found 。
如果先点击‘客户类型’统计那么程序同样也可以执行，但是当你再点击‘客户等级’统计时提示：field '客户类型' not found 。
明明我重新统计数据时已经把原来adoquery1中的sql清楚了啊。郁闷，希望大家能帮帮小弟。谢谢了。
procedure TCustomerTotalForm.RzBitBtn1Click(Sender: TObject);
var
SelectItemID:integer;
SelectImageID:integer;
begin
SelectItemID:=Totaltypecombobox.ItemIndex;
SelectImageID:=Imagecombobox.ItemIndex;
if SelectItemID=0 then begin//按照客户等级统计分析
CustomerDBchart.Title.Text.Clear;
CustomerDBchart.Title.Text.Add('客户等级统计分析图');
dm1.ADOQuery1.Close;
dm1.ADOQuery1.SQL.Clear;
dm1.ADOQuery1.SQL.Add('select ClientTier as 客户等级,count(ClientTier) as 统计数量 from clientdata group by ClientTier');
dm1.ADOQuery1.Open;
dm1.ChartSource.DataSet:=dm1.ADOQuery1;
Customerdbgrid.DataSource:=dm1.ChartSource;
if SelectImageID=0 then
begin
series1.Active:=false;
series2.DataSource:=dm1.ADOQuery1;
series2.XLabelsSource:='客户等级';
series2.YValues.ValueSource:='统计数量';
series2.Active:=true;
end
else
begin
series2.Active:=false;
series1.DataSource:=dm1.ADOQuery1;
series1.XLabelsSource:='客户等级';
series1.YValues.ValueSource:='统计数量';
series1.Active:=true;
end;
end;
if SelectItemID=1 then begin//按照客户类型统计分析
CustomerDBchart.Title.Text.Clear;
CustomerDBchart.Title.Text.Add('客户类型统计分析图');
dm1.ADOQuery1.Close;
dm1.ADOQuery1.SQL.Clear;
dm1.ADOQuery1.SQL.Add('select ClientTypes as 客户类型,count(ClientTypes) as 统计数量 from clientdata group by ClientTypes');
dm1.ADOQuery1.Open;
Dm1.ChartSource.DataSet:=dm1.ADOQuery1;
Customerdbgrid.DataSource:=dm1.ChartSource;
if SelectImageID=0 then
begin
series1.Active:=false;
series2.DataSource:=dm1.ADOQuery1;
series2.XLabelsSource:='客户类型';
series2.YValues.ValueSource:='统计数量';
series2.Active:=true;
end
else
begin
series2.Active:=false;
series1.DataSource:=dm1.ADOQuery1;
series1.XLabelsSource:='客户类型';
series1.YValues.ValueSource:='统计数量';
series1.Active:=true;
end;
end;
if SelectItemID=2 then begin//按照客户所在区域统计分析
CustomerDBchart.Title.Text.Clear;
CustomerDBchart.Title.Text.Add('客户所在区域统计分析图');
dm1.ADOQuery1.Close;
dm1.ADOQuery1.SQL.Clear;
dm1.ADOQuery1.SQL.Add('select area as 客户区域,count(area) as 统计数量 from clientdata group by area');
dm1.ADOQuery1.Open;
dm1.ChartSource.DataSet:=dm1.ADOQuery1;
Customerdbgrid.DataSource:=dm1.ChartSource;
if SelectImageID=0 then
begin
series1.Active:=false;
series2.DataSource:=dm1.ADOQuery1;
series2.XLabelsSource:='客户区域';
series2.YValues.ValueSource:='统计数量';
series2.Active:=true;
end
else
begin
series2.Active:=false;
series1.DataSource:=dm1.ADOQuery1;
series1.XLabelsSource:='客户区域';
series1.YValues.ValueSource:='统计数量';
series1.Active:=true;
end;
end;
end;
以上介绍了“ adoquery 的错误 field ' ' not found 解决后马上散分。以前遇到过这样的问题解决了。后来又忘记了。”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3243748.html
