解决方案 »

  1.   

    DBChart1.Series[0].Clear;
    DBChart1.Series[0].DataSource := ADOQuery1; 试试
      
      

  2.   

    Delphi  版块没人了吗?
      

  3.   

    新建一个adoquery,连接adoconnection试试
      

  4.   

    先复位:
      DBChart1.Series[0].DataSource := Nil;
      DBChart1.Series[0].XLabelsSource := '';
      DBChart1.Series[0].YValues.ValueSource := '';
      DBChart1.Series[0].Clear;
      ADOQuery1.Close;

      ADOQuery1.SQL.Text :=‘xxxx’;
      ADOQuery1.Open;
      ....
      

  5.   

    还有一个办法,不用换字段名,就是把SQL语句中的字段名统一就可以了!
    ADOQuery1.SQL.Text :=
         'SELECT count(sjF) as 数量,SJF as sjdept from tbpack group by SJF';
      

  6.   

    procedure TFrmpieChart.Button1Click(Sender: TObject);
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      DBChart1.Series[0].Clear;
      DBChart1.Series[0].DataSource := ADOQuery1;
      DBChart1.Series[0].XLabelsSource := '';
      DBChart1.Series[0].YValues.ValueSource := '';  ADOQuery1.SQL.Text :=
        'SELECT count(sjdept) as 数量 ,sjdept from tbpack group by sjdept';
      ADOQuery1.Open;
      DBChart1.Series[0].DataSource := ADOQuery1;
      DBChart1.Series[0].Clear;
      DBChart1.Series[0].XLabelsSource := 'sjdept';
      DBChart1.Series[0].YValues.ValueSource := '数量';
    end;