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;
[解决办法]
把两个柱状图的开始坐标统一下试一下