[m.medvedb]

Таблица Paradox...В DBgrid есть столбец LENGHT надо вычислить его сумму в компоненте Edit...подскажите как?

[Страдалецъ]

Есть три решения:
1.Сделать вычисляемый столбец типа агрегат, но это делается через ClientDataSet
2.Выполнить SQL-запрос с агрегатом
3.Обойти ручками в цикле датасет

[lmikle]

Варианты:
1. Отдельным запросом

Код:

select sum(length) from table_name

2. "Пробежаться" по выборке и просуммировать.

Код:

var
  B : Pointer;
  S : Integer;
begin
  Query1.DisableControls;
  B := Query1.GetBookmark;
  Try
    Query1.First;
    S := 0;
    While Not Query1.Eof Do
      Begin
        S := S + Query1.FieldByName('length').AsInteger;
        Query1.Next;
      End;
    Query1.GotoBookmark(B);
    Query1.FreeBookmark(B);
  Finally
    Query1.EnableControls;
  End;
end;

[m.medvedb]

Сообщение от lmikle

Варианты:
1. Отдельным запросом

Код:

select sum(length) from table_name

2. "Пробежаться" по выборке и просуммировать.

Код:

var
  B : Pointer;
  S : Integer;
begin
  Query1.DisableControls;
  B := Query1.GetBookmark;
  Try
    Query1.First;
    S := 0;
    While Not Query1.Eof Do
      Begin
        S := S + Query1.FieldByName('length').AsInteger;
        Query1.Next;
      End;
    Query1.GotoBookmark(B);
    Query1.FreeBookmark(B);
  Finally
    Query1.EnableControls;
  End;
end;

А в какое событие DBGrid надо добавлять код, что-бы при добавление новой записи происходил пересчет?

[m.medvedb]

Все разобрался тема закрыта....!