Delphi:如何聚合 TClientDataset 中的范围记录？

Question

我需要使用TClientdataset进行一些聚合。在 SQL 中，这些聚合可以使用如下脚本完成:

Select Sum(column1) from table1 where Date_Column < Date_Value

因为我在很长的过程和非常慢的网络中需要更高的速度，所以我想使用内存聚合而不是使用 sql 。我的想法是使用这样的表达式向 ClientDataset 添加聚合:

Sum(column1)

并创建 Date_Column 索引，然后像这样过滤 clientdataset:

myClientdataset.SetRang([value1],[value2]);

我本来希望看到这个范围的聚合结果，但是不幸的是，聚合忽略了该范围并继续给出所有记录的结果!

所以，我的问题是:如何在 TClientdataset 中实现这一目标？或者，您还有其他想法如何在内存中进行范围聚合吗？

Answer 1

也许这个链接会有帮助:Grouping and Aggregates

编辑:

我想我已经明白了，这花了我相当长的时间，而且是一次令人沮丧的经历；)

我制作了一个示例项目。

首先，没有过滤的聚合:

第二，按下按钮后的聚合:

这就是你想要的效果吗？

请注意，我无法通过使用 SetRange() 来实现此效果，而是使用了 Filter 属性。

如何实现:

1. 在某个字段上创建索引，GroupingLevel 必须为 0。
2. 将该索引设置为 TClientDataset.IndexName 的属性。
3. 使用 GroupingLevel = 0 和 SUM(YourFieldName) 等表达式创建聚合，在我的例子中是 SUM(Population)。
4. 在 IndexName 属性中写入您创建的索引。
5. 在设计时将聚合设置为事件状态(在运行时设置它似乎不起作用)。

按下按钮后我的代码:

  cdsMain.Filter := 'Population <= 100';
  cdsMain.Filtered := True;
  if not VarIsNull(cdsMain.Aggregates[0].Value) then
    lblAggregatedPopulation.Caption := 'Aggregated population: ' + IntToStr(cdsMain.Aggregates[0].Value);

请注意，在“过滤器”中，您可以轻松更改条件以获得与“设置范围”相同的结果。不过，我了解到 SetRange 过滤数据的速度更快。

希望有帮助:)