powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как посчитать сумму по столбцу TFDMemTable?
4 сообщений из 4, страница 1 из 1
Как посчитать сумму по столбцу TFDMemTable?
    #39840719
bnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дельфи 10.3, есть таблица:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 
DocTable: TFDMemTable;

with DocTable do
 begin
   with FieldDefs do
   begin
     Clear;
     Add('NAME', ftString, 255);
     Add('Price', ftFloat, 0);
     Add('Count', ftFloat, 0);
     Add('Summa', ftFloat, 0);
   end;



При изменении таблицы нужно в edit вывести общую сумму

в свойствах TFDMemTable добавил аггрегат
Код: pascal
1.
  Edit1.Text := VarToStr(DocTable.Aggregates[0].Value);


но результат всегда null

подскажите как правильно
...
Рейтинг: 0 / 0
Как посчитать сумму по столбцу TFDMemTable?
    #39840734
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
отсюда
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
with FDMemTable1.Aggregates.Add do begin
  Expression := 'sum(sal + bonus)';
  Active := True;
end;
with FDMemTable1.Aggregates.Add do begin
  Expression := 'sum(sal + bonus)';
  IndexName := 'by_deps';
  Active := True;
end;
FDMemTable1.IndexName := 'by_deps';
FDMemTable1.AggregatesActive := True;

Label1.Caption := 'Total payments : ' + VarToStr(FDMemTable1.Aggregates[0].Value);
Label2.Caption := 'Current department payments : ' + VarToStr(FDMemTable1.Aggregates[1].Value);
...
Рейтинг: 0 / 0
Как посчитать сумму по столбцу TFDMemTable?
    #39840736
bnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
у меня не работает
...
Рейтинг: 0 / 0
Как посчитать сумму по столбцу TFDMemTable?
    #39841042
bnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Решил.
Код: pascal
1.
DocTable.Aggregates.Items[0].BeginUpdate;
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как посчитать сумму по столбцу TFDMemTable?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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