Delphi 列聚合的TDBGrid状态栏

得到了一个包含一些数值列的网格，它需要为每个列实现一个聚合（总和或计数），并将其显示在相应的列下

我知道一些套件（DevExpress或其他套件）已经“默认”实现了。但是有一种方法可以使用默认控件或JVCL来实现它？

正如您所提到的，试着看看组件。它是控件的状态栏

• 您可以修改事件中显示的文本
• 您可以计算事件中的聚合字段
• 您可以跟随网格列滚动，调整面板的大小或修改面板的外观

---

查看JVCL的

。\examples\JvUltimDBGrid

文件夹中的演示项目，查看它的运行情况。

当您提到JVCL时，有

TJvDBGridFooter

，这可能是您真正想要的。它发布了

OnCalculate

事件，但是我不知道如何调整此控件的大小。您正在寻找一个将随网格列一起调整大小的控件吗？您能告诉我-如何对字段执行一个agregate sum并将其显示在页脚中。这个例子并不能满足我的需要——我使用的是ClientDataset。那么，你找到方法了吗？基本上，它是关于数据集的。然后在

TJvDBGridFooter.columns

集合中添加列，将它们设置为连接数据集中的聚合字段，设置

DisplayMask

如

∑%d

和

TJvDBGridFooter中的
DisplayMask
事件。一旦计算
CalcValue
事件，使用聚合字段中的值填充
CalcValue
参数。