dbchart使用的小问题，请进（来者有分）！！！！！！！！

procedure   TForm10.Button1Click(Sender:   TObject);  
  begin  
      datam.SQ_WeiFaTongJi.SQL.Text:='select   R.PHOTO,count(R.PHOTO)   cross     from   table   R     group   by   R.PHOTO';  
      datam.SQ_WeiFaTongJi.Open;  
      dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;  
      dbchart1.Series[0].XLabelsSource:='photo';  
      dbchart1.Series[0].YValues.ValueSource   :=   'cross';  
      dbchart1.Series[0].Active:=true   ;    
  end;  
   
  procedure   TForm10.Button2Click(Sender:   TObject);  
  begin  
          datam.SQ_WeiFaTongJi.SQL.Text:='select   R.weizhang,count(R.weizhang)   yi     from   table   R     group   by   R.weizhang';  
          datam.SQ_WeiFaTongJi.Open;  
          dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;  
          dbchart1.Series[0].XLabelsSource:='weizhang';  
          dbchart1.Series[0].YValues.ValueSource   :=   'yi';  
          dbchart1.Series[0].Active:=true   ;        
  end;  
  上面事件只执行一个时没有问题，能正常显示，可是只要是执行两个时就出错，比如先单击button1,再单击button2时，提示“PHOTO　字段　找不到”；先单击button2,再单击button1时，提示“weizhang　字段　找不到”；如果去掉两个事件中的dbchart部分，则两个事件都能正常查询。  
  什么原因造成的？该如何做？多谢，多谢！！！！！ 问题点数：100、回复次数：8Top

1 楼luxuewei5214（小卢)(以下内容仅供参考）回复于 2006-03-04 10:39:22 得分 8

先dbchart1.Series[0].Active:=False;  
  然后设置参数，最后  
      dbchart1.series[0].active   ;=   True;  
  数据源也是  
  先datam.SQ_WeiFaTongJi.close;  
  然后  
  datam.SQ_WeiFaTongJi.SQL.Text:='select   R.PHOTO,count(R.PHOTO)   cross     from   table   R     group   by   R.PHOTO';  
      datam.SQ_WeiFaTongJi.Open;Top

2 楼luxuewei5214（小卢)(以下内容仅供参考）回复于 2006-03-04 10:39:50 得分 0

试试看Top

3 楼lovendII（流氓都做了城管）回复于 2006-03-04 11:57:30 得分 8

看看dbchart1有没有clear之类的属性,如果有,先dbchart1.clear,再添加  
  就能解决你的问题了Top

4 楼zffzff（zss）回复于 2006-03-04 13:01:35 得分 0

我将代码改为以下，还是出现同样的错误  
  procedure   TForm10.Button1Click(Sender:   TObject);  
  begin  
      datam.SQ_WeiFaTongJi.close;      
      datam.SQ_WeiFaTongJi.SQL.Text:='select   R.PHOTO,count(R.PHOTO)   cross     from   table   R     group   by   R.PHOTO';  
      datam.SQ_WeiFaTongJi.Open;  
      dbchart1.Series[0].Active:=False;  
      dbchart1.Series[0].Clear;  
      dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;  
      dbchart1.Series[0].XLabelsSource:='photo';  
      dbchart1.Series[0].YValues.ValueSource   :=   'cross';  
      dbchart1.Series[0].Active:=true   ;    
  end;  
   
  procedure   TForm10.Button2Click(Sender:   TObject);  
  begin  
          datam.SQ_WeiFaTongJi.close;            
          datam.SQ_WeiFaTongJi.SQL.Text:='select   R.weizhang,count(R.weizhang)   yi     from   table   R     group   by   R.weizhang';  
          datam.SQ_WeiFaTongJi.Open;  
          dbchart1.Series[0].Active:=False;  
          dbchart1.Series[0].Clear;  
          dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;  
          dbchart1.Series[0].XLabelsSource:='weizhang';  
          dbchart1.Series[0].YValues.ValueSource   :=   'yi';  
          dbchart1.Series[0].Active:=true   ;        
  end;  
  ＿＿＿＿＿＿＿  
  倒底哪儿出了问题？？？？？？Top

5 楼luxuewei5214（小卢)(以下内容仅供参考）回复于 2006-03-04 13:35:13 得分 0

在datam.SQ_WeiFaTongJi.SQL.Text:='select   R.PHOTO,count(R.PHOTO)   cross     from   table   R     group   by   R.PHOTO';前加一句：  
  datam.SQ_WeiFaTongJi.SQL.Clear;  
  用过TChart,没用过DBChart,看看有demo么？Top

6 楼zffzff（zss）回复于 2006-03-04 13:52:21 得分 0

在datam.SQ_WeiFaTongJi.SQL.Text:='select   R.PHOTO,count(R.PHOTO)   cross     from   table   R     group   by   R.PHOTO';前加一句：  
  datam.SQ_WeiFaTongJi.SQL.Clear  
  ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿  
  加上了，还是出错啊！           ????????????????????????????Top

7 楼iceman2008（）回复于 2006-03-04 14:41:52 得分 84

试试下面代码  
  procedure   TForm10.Button1Click(Sender:   TObject);  
  var  
      Series1:   TLineSeries;  
  begin  
  　Series1   :=   TLineSeries.Create(Application)   ;  
    　DbChart1.SeriesList.Clear   ;  
        DbChart1.AddSeries(Series1);  
      datam.SQ_WeiFaTongJi.close;      
      datam.SQ_WeiFaTongJi.SQL.Text:='select   R.PHOTO,count(R.PHOTO)   cross     from   table   R     group   by   R.PHOTO';  
      datam.SQ_WeiFaTongJi.Open;  
      dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;  
      dbchart1.Series[0].XLabelsSource:='photo';  
      dbchart1.Series[0].YValues.ValueSource   :=   'cross';  
      dbchart1.Series[0].Active:=true   ;    
  end;  
   
  procedure   TForm10.Button2Click(Sender:   TObject);  
  var  
      Series1:   TLineSeries;  
  begin  
  　　Series1   :=   TLineSeries.Create(Application)   ;  
    　　DbChart1.SeriesList.Clear   ;  
      　   DbChart1.AddSeries(Series1);         datam.SQ_WeiFaTongJi.close;            
          datam.SQ_WeiFaTongJi.SQL.Text:='select   R.weizhang,count(R.weizhang)   yi     from   table   R     group   by   R.weizhang';  
          datam.SQ_WeiFaTongJi.Open;  
          dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;  
          dbchart1.Series[0].XLabelsSource:='weizhang';  
          dbchart1.Series[0].YValues.ValueSource   :=   'yi';  
          dbchart1.Series[0].Active:=true   ;        
  end;  
   
  Top

8 楼zffzff（zss）回复于 2006-03-04 15:12:15 得分 0

调试成功！多谢了！Top

相关问题

• series
• active
• dbchart1
• datam
• weifatongji
• sq
• weizhang
• photo
• dbchart
• tlineseries

• 帖主：zffzff
• luxuewei5214
• lovendII
• iceman2008

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载