fastreport 动态图表

[laty_cathy]

大家好：
如何在fastreport 报表中动态生成Bar.假如在数据库中，有一张表A.
要在程序中动态生成曲线图。因为表A的字段不固定，可能还会有地理、化学、生物等字段.
请问大家有什么好的方法来实现：
详情见下图:

我现在可以用Delphi 自带的DBChart控件来实现。详细代码如下：

procedure TForm1.FormShow(Sender: TObject);
var
Series1,Series2: TLineSeries;
i:integer;
TestArr: array of TLineSeries;
begin
ADOQUERY2.Active :=TRUE;
SetLength(TestArr, ADOQuery2.FieldCount);
DBChart1.FreeAllSeries;
for i :=0 to ADOQuery2.FieldCount-1 do
begin
if i< ADOQuery2.FieldCount-1 then
begin
TestArr[i]:= TLineSeries.Create(nil);
TestArr[i].ParentChart:=self.DBChart1;
TestArr[i].Marks.Visible:=False;
TestArr[i].DataSource:=ADOQUERY2;
TestArr[i].YValues.ValueSource:=ADOQUERY2.Fields[i+1].FieldName;
TestArr[i].XLabelsSource:=ADOQUERY2.Fields[0].FieldName;
TestArr[i].Title :=ADOQUERY2.Fields[i+1].FieldName;
end;
end;
DBChart1.Repaint;
end;
但我想用Fastreport自带的控件TfrxChartView控件，但总不能实现动态增加Series功能。请高手指点如何动态生成曲线图表。
thanks

[bdmh]

TfrxChartView(frReport1.FindObject('Chart1')).SeriesData.Add,自己研究一下他的添加

[laty_cathy]

dbmh 您好：
按您好的方法写下了如下代码：但会出现 list index out of bound(0)的错误。不知道错误出在那里。
procedure TForm1.frxReport2BeforePrint(Sender: TfrxReportComponent);
var
myChart: TfrxChartView;
i:integer;
cc:TfrxSeriesItem;
aa:TfrxSeriesXtype;
bb:TChartSeries;
begin
if Sender is TfrxChartView then
begin
myChart:=(frxReport2.FindObject('Chart1') as TfrxChartView);
with mychart do
begin
mychart.ClearSeries;
for i :=0 to adoquery2.FieldCount-1 do
begin
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.Add.DataSet := frxDBDataset1;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.XType :=xtText;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.DataType :=dtDBData;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.SortOrder :=soNone;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.XSource :='name';
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.YSource :='math';
end;
mychart.Chart.Repaint;
end;
end;
end;

[laty_cathy]

改为如下代码还是不行。请问高手如何解决这个问题：
procedure TForm1.frxReport2BeforePrint(Sender: TfrxReportComponent);
var
i:integer;
begin
if Sender is TfrxChartView then
begin
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.Clear;
for i :=0 to adoquery2.FieldCount-1 do
begin
if i< ADOQuery2.FieldCount-1 then
begin
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.Add.DataSet := frxDBDataset1;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.XType :=xtText;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.DataType :=dtDBData;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.SortOrder :=soNone;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.XSource :=ADOQUERY2.Fields[0].FieldName;
TfrxChartView(frxReport2.FindObject('Chart1')).SeriesData.ADD.YSource :=ADOQUERY2.Fields[i+1].FieldName;
end;
end;
TfrxChartView(frxReport2.FindObject('Chart1')).Chart.Repaint;
end;

end;

[laty_cathy]

难道就没有高手能解决这个问题吗？