求fastreport 打印曲线的问题,试验好几天了,没成功,在线等,头疼啊
- Delphi(Pascal) code
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什么参数都没修改
[解决办法]
报表中没有使用数据库绑定的控件,所以不能显示数据的
仔细看看吧
[解决办法]
想打印像EXCEL上一样的柱状图表的东西?