堆叠图表未按日期堆叠成单个条形图

Question

我有一个返回如下数据的数据集

日期、地区、销售额

2017-06-01 00:00:00.000 食堂 435.29

2017-06-01 00:00:00.000 健身房 26

2017-06-01 00:00:00.000 指甲 75

2017-06-01 00:00:00.000 未分类 482.5

我正在尝试使用此数据创建堆积条形图

系列的数量会有所不同

我有以下逻辑来创建系列，但我不确定如何添加每个值，例如我需要 X 轴按日期并有 2 个条形图。然后根据上述数据，将每个条形图与 3 个系列堆叠在一起。

while not tblSalesBreakdownByDate.Eof do
begin
  nIndex := objList.IndexOf(tblSalesBreakdownByDateCategory.AsString);
  if nIndex = -1  then
  begin
    objSeries := TBarSeries.Create(Self);
    objSeries.MultiBar := TMultiBar.mbStacked;
    objSeries.Title := tblSalesBreakdownByDateCategory.AsString;

    chrtBreakdownByDate.AddSeries(objSeries);
    objList.AddObject(objSeries.Title, objSeries)
  end
  else
    objSeries := objList.Objects[nIndex];

  objSeries.Add(tblSalesBreakdownByDateTotalSales.AsFloat, tblSalesBreakdownByDateTransactionDate.AsString);

  tblSalesBreakdownByDate.Next;
end;

渲染时，不是堆叠的 1 个条，而是 3 个条

我如何在 1 条中获得该日期？

我需要对 Axis 做些什么特别的事情吗？

干杯

保罗

Answer 1

这给了我一个堆叠的列：

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Chart1.AddSeries(TBarSeries) as TBarSeries do
  begin
    MultiBar:=mbStacked;
    Marks.Hide;
    Title:='Canteen';
    Add(435, '2017-06-01');
  end;
  with Chart1.AddSeries(TBarSeries) as TBarSeries do
  begin
    MultiBar:=mbStacked;
    Marks.Hide;
    Title:='Gym';
    Add(25, '2017-06-01');
  end;
  with Chart1.AddSeries(TBarSeries) as TBarSeries do
  begin
    MultiBar:=mbStacked;
    Marks.Hide;
    Title:='Nails';
    Add(95, '2017-06-01');
  end;
  with Chart1.AddSeries(TBarSeries) as TBarSeries do
  begin
    MultiBar:=mbStacked;
    Marks.Hide;
    Title:='Uncategorized';
    Add(455, '2017-06-01');
  end;
end;