求fastreport 打印曲线的问题，试验好几天了，没成功，在线等,头疼啊


procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  mychart:TfrxChartView ;
  SeriesRec:TLineSeries ;
  frxDBDataSet:TfrxDBDataset ;
begin
  if Sender is TfrxChartView then
  begin
    mychart:=TfrxChartView(Sender);
    if mychart.Name ='Chart1' then
    begin
       AdoConnection2.Connected :=true ;
       Adoqry1.SQL.Clear;
       Adoqry1.SQL.Add('select * from Force');
       Adoqry1.Open;
       frxDBDataSet:=TfrxDBDataset.Create(nil) ;
       frxDBDataSet.Name := 'Adory1';
       frxDBDataSet.DataSet :=Adoqry1;
       //¼ÓÔØLineSeries
       SeriesRec:=TLineSeries.Create(Mychart);
       mychart.Chart.AddSeries(SeriesRec);
       with Mychart.SeriesData.Add do
       begin
         DataType :=dtDBData ;
         XSource := frxDBDataSet.Name+'.'+QuotedStr('a');
         YSource :=  frxDBDataSet.Name+'.'+ QuotedStr('b');
         DataSet := frxReport1.GetDataset( 'Adoqry1');
       end;
    end;
    mychart.Chart.Repaint ;
  end;
end;
报表打印出来是空，可是是明明有数据的，如下图所示，我就报表上添加了一个chat什么参数都没修改