Добрый день.
Вот пример кода для вывода сумм из футера столбца, привязанного к полю PartPrice.
Считаем, что группировка только первого уровня и футер состоит из одной строки.
Код:
procedure TfrDataGrouping.Button1Click(Sender: TObject);
var
I: Integer;
Root: TGroupDataTreeNodeEh;
FooterRow: TGroupDataTreeNodeEh;
FooterValue: Variant;
Col: TColumnEh;
s: String;
begin
FormLog.Show;
Col := DBGridEh1.FindFieldColumn('PartPrice');
Root := DBGridEh1.DataGrouping.GroupDataTree.Root;
for I := 0 to Root.Count - 1 do
begin
FooterRow := Root.Items[I].FooterItems[0];
FooterValue := FooterRow.FooterValues[Col.Index];
s := 'Group KeyValue = ' + VarToStr(Root.Items[I].KeyValue) + '; FooterValue = ' + VarToStr(FooterValue);
FormLog.Memo1.Lines.Add(s);
end;
end;
Значение группы и футер выводится в Memo1 на форме FormLog.
Доступ к дереву записей с группами можно получить с помощью свойства DBGridEh1.DataGrouping.GroupDataTree.