Показать сообщение отдельно
  #8  
Старый 12.06.2019, 07:16
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, варианты.
1. Сделать view и из нее выполнять оба запроса. Первый - для получения данных для грида, второй - для получения сумм.
2. Тут не запросом суммы получаются, а перебором данных. Отключаем обновление, пробегаемся по датасету, суммируем все, выводим в нужные поля и включаем отображение обратно. Как-то так (пишу здесь, так что мелкие очепятки возможны):
Код:
var
  S1, S2 : Integer; // не знаю тип полей для суммированния, пуст будет кол-во
begin
  S1 := 0;
  S2 := 0;
  SortDateDataSource.DisableContols;
  Try
    SortDate.First;
    While Not SortDate.Eof Do
      Begin
        S1 := S1 + SortDate.FieldByName('M').AsInteger;
        S2 := S2 + SortDate.FieldByName('MC').AsInteger;
        SortDate.Next;
      End;
    Edit1.Text := IntToStr(S1);
    Edit2.Text := IntToStr(S2);
  Finally
    SortDate.First;
    SortDateDataSource.EnableContols;
  End;
Ответить с цитированием