求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;