Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / EhLib - Группировка - вычисления в футере / 3 сообщений из 3, страница 1 из 1
15.11.2012, 19:10:19
    #38040384
jserrg
jserrg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EhLib - Группировка - вычисления в футере
Использую EhLib 6.0 с TMEMTable-ом
В гриде есть группировка с агрегатными суммами.

Хочу в последней колонке грида посчитать данные на основе футеров других колонок. Что-то типа Calculated Field только в футере TDBGridEh-a

Пытался использовать событие грида:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure TBalanceSheetFrame.gr1DataGroupFooterAggregateValue(
  Grid: TCustomDBGridEh; Column: TColumnEh; GroupFooter: TGridDataGroupFooterEh;
  FooterColumnItem: TGridDataGroupFooterColumnItemEh; var AValue: Variant;
  Node: TGroupDataTreeNodeEh; var Processed: Boolean);
begin
  if (Column.Name='Column_16_Save') then begin
    AValue:=GroupFooter.FootersCollection[5].di // DisplayName;// AggrValue(Node);
//    DisplayValue:=Grid.DataGrouping.Footers[0].ColumnItems[7].;
//    AValue:=Grid.DataGrouping.Footers[0].ColumnItems[7].FieldName;
//    AValue:=Grid.DataGrouping.Footers[0].ColumnItems[7].;
//    AValue:=GroupFooter.;
    Processed:=true;
end;


Так же пытался работать с OnDataGroupFooterDisplayText...

Нифига не получается дойти до данных футера.

Как???

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2012, 19:28:48
    #38042131
X_ginger
X_ginger
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EhLib - Группировка - вычисления в футере
function GetFooterValue(Row: Integer; Column: TColumnEh): String;
Row - строка ФУТЕРА. Нумерация с 0. Только это в виде строки будет, возможно, с разделителями.

Добраться до футера колонки - Footer := Column.UsedFooter(Row);
У футера есть Value, но это строка. Есть SumValue, но если ValueType in [fvtSum..fvtCount].
Через футер можно добраться непосредственно до поля через его(поля) имя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
24.05.2017, 23:56:00
    #39459206
YulyaDijD
YulyaDijD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EhLib - Группировка - вычисления в футере
Работающий пример. Как в группировке столбца 6 рассчитать % столбца 5 от столбца 4 (индекс начинается с 0).
Свойства:
Код: pascal
1.
  GridD.DataGrouping.Footers[0].ColumnItems[6].ValueType:= gfvStaticTextEh;


Обработка:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
procedure TForm1.GridDDataGroupFooterAggregateValue(Grid: TCustomDBGridEh;
  Column: TColumnEh; GroupFooter: TGridDataGroupFooterEh;
  FooterColumnItem: TGridDataGroupFooterColumnItemEh; var AValue: Variant;
  Node: TGroupDataTreeNodeEh; var Processed: Boolean);
begin
  if Column.Index=6 then
  begin
    if (Node.Level=2) or (Node.Level=3) then //только те уровни, где нужно считать %
    begin
      if (Node.Parent.FooterItems[0].FooterValues[4]<>null) and (Node.Parent.FooterItems[0].FooterValues[4]<>0) then
        AValue:= FloatToStr(RoundTo(Node.Parent.FooterItems[0].FooterValues[5]*100/Node.Parent.FooterItems[0].FooterValues[4], -2)) + '%'
      else
        AValue:= 'None';
      Processed:= true;
    end;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / EhLib - Группировка - вычисления в футере / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 578ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2042257]:
 0ms
get settings:
 11ms
get forum list:
 22ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 235ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 240ms
total:  578ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]