• Registered: 2015-08-17
  • Posts: 60

Topic: Какой скрипт для суммирования в footer таблицы?

Такой , как внизу, не работает, видимо, я неправильно составил

procedure frmPeriod_Gridsearch_OnChange (Sender: string);
begin
      frmPeriod.Gridsearch.Columns[11].Footer.ValueType := fvtSum;
     end;


Подскажите пожалуйста, как сделать правильно, чтобы суммировал, и выводил результат с двумя знаками после запятой ( 0,00),
не просто округлял, а всегда оставлял два знака

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Какой скрипт для суммирования в footer таблицы?

Если для вывода данных в грид вы не используете SQL запрос и колонка имеет тип ДЕНЬГИ, то в footer будет выведен результат именно в таком формате, в каком вам необходимо.


в противном случае, скриптом это можно реализовать так

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[4].Footer.FormulaKind := fkSum;
    Form1.TableGrid1.CalculateFooter;
    Form1.TableGrid1.Columns[4].Footer.Caption := FormatFloat('0.#0', Form1.TableGrid1.Columns[4].Footer.FormulaValue);
end;

begin
    Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter;
end.
Dmitry.
  • Registered: 2015-08-17
  • Posts: 60

Re: Какой скрипт для суммирования в footer таблицы?

Спасибо за подсказку