delphi 动态添加柱状图有关问题

delphi 动态添加柱状图问题
我的两个柱状图的数据如下

SQL code

     dt           num    1146    DA    2    1147    DA    4    1148    DA    2    1149    DA    3

SQL code

     dt           num    1147    NB    4

如果我直接添加两个柱状图，连上dataset，dt是横坐标，num是纵坐标，他会显示正确

SQL code

 2     4|4     2     31146   1147  1148  1149

但是如果我动态的添加柱状图，图形显示如下

SQL code

 2|4    4      2      31146   1147  1148  1149

NB的4本来在1147，这样就显示在了1146，这是为什么啊



动态添加柱状图如下

Delphi(Pascal) code

procedure TfrmMain.AddChart(CDS: TClientDataSet);var  series: TChartSeries;  cdsTmp: TClientDataSet;begin  cdsTmp := TClientDataSet.Create(self);  cdsTmp.Data := CDS.Data;  series := TBarSeries.Create(DBChart1);  series.ParentChart := DBChart1;  DBChart1.AddSeries(series);  with series do  begin    Marks.Callout.Brush.Color := clBlack;    Marks.Style := smsValue;    Marks.Visible := True;    DataSource := cdsTmp;    XLabelsSource := 'DT';    VertAxis := aLeftAxis;    XValues.Name := 'X' ;    XValues.Order := loAscending;    YValues.Name := 'BAR' ;    YValues.Order := loNone ;    YValues.ValueSource := 'NUM';  end;end;

[解决办法]
把两个柱状图的开始坐标统一下试一下

查看更多 下一篇