如何将dbchart中,曲线改为bar,要在程序中?(100分)

其中有一个属性,肯定能改

好象不行，它们分属两个不同的类，要的话只有创建个新的删除旧的，同时把旧的数据
导入到新的中去。

定义：
Series2: TLineSeries
//曲线图
Series1: TBarSeries;
过程：
procedure Tmainform.showtypeClick(Sender: TObject);
begin
if data.showQuery.Active then begin
if showtype.ItemIndex=0 then begin
series2.Active:=false;
series1.Active:=true;
series1.DataSource:=data.showQuery;
series1.XLabelsSource:='题号';
series1.YValues.ValueSource:='正确率（％）';
showdbchart.CheckDatasource(series1);
end else if showtype.ItemIndex=1 then begin
series1.Active:=false;
series2.Active:=true;
series2.DataSource:=data.showQuery;
series2.XLabelsSource:='题号';
series2.YValues.ValueSource:='正确率（％）';
showdbchart.CheckDatasource(series2);
end else begin
showmessage('请选择显示方式！');
end;
end else
showmessage('数据库没有打开！');
end;

接受答案了.