Topic: Помощь. Итог по Grid в Footer
Добрый день!
По SQL запросу формируется grid, возможно ли вывести сумму по одному столбцу с отображением внизу таблицы?
(Во вложении по кнопке Отчет 2-ая вкладка)
My Visual Database → Russian → Помощь. Итог по Grid в Footer
Добрый день!
По SQL запросу формируется grid, возможно ли вывести сумму по одному столбцу с отображением внизу таблицы?
(Во вложении по кнопке Отчет 2-ая вкладка)
Приветствую,
В случае формирования результата с помощью SQL, вывести сумму внизу компонента TableGrid придется скриптами, что более трудоемко.
Я дополнил ваш пример, где тоже самое сделал без SQL запроса, используя кнопку с действием "Поиск"
но пришлось добавить одно вычисляемое поле. Проект приложил к сообщению.
Большое спасибо!
Если есть где посмотреть, как подобное реализовано скриптом, с радостью ознакомлюсь.
так добавьте просто Edit отдельно от грида куда поместите результат суммы из sql запроса
только я не совсем понял какие поля в Вашем проекте должны суммироваться
теперь понял но отчетность лучше делать через редактор отчетов - там намного проще это делать.
Спасибо за рекомендации.
Хотелось все таки разобраться, как это сделать скриптом.
zibodan
Скачайте пожалуйста данный пример
http://myvisualdatabase.com/forum/misc. … download=1
Да, спасибо. Я смотрел уже этот пример.
Вот что сделал в итоге:
procedure frRep_RepTab2_OnChange (Sender: string);
var
i,c,q: integer;
begin
q := 0;
c := frRep.RepTab2.RowCount-1;
for i := 0 to c do
q := q + StrToInt(frRep.RepTab2.Cells[1,i]);
frRep.RepTab2.Columns[1].Footer.Caption := IntToStr(q);
end;
begin
frRep.RepTab2.Options := frRep.RepTab2.Options + goFooter;
end.
Считать считает, но Footer не отображается:
не пойму почему?
Вставил ваш код в ваш проект, работает.
Возможно вы не правильно создали событие OnChange?
как создавать события, можно посмотреть здесь
http://myvisualdatabase.com/help_ru/scr … rview.html
также приложил ваш проект
Скачал приложенный проект (№3) запустил, не отображает Footer и всё.
Вот "шальная" мысль посетила меня, не в версии ли дело. У меня 1.44
... да, так и есть на 1,47 все работает, и похоже только в этой версии.
Вывел результат в Label.
Спасибо.
Научите, пож-ста, как выводить результаты каких-либо расчетов или полей в Label.
Научите, пож-ста, как выводить результаты каких-либо расчетов или полей в Label.
Сделал для вас пример:
Спасибо, Дмитрий!
По ошибке сделал этот проект в бета версии 1.50, он не откроется в более поздней версии, пожалуйста скачайте данный пример снова, перезалил.
я видимо где-то, чего-то недопонял. Когда zibodan написал "результат" вывел в Label", то я понял то так, что Label - это компонет MVDB, который используется для вывода текста на формах и решил, что здорово, если их еще можно использовать в качестве вывода каких-то результатов расчетов. В последнем примере Дмитрия никакие Labels для вывода результатов не используются,. Что тогда имел ввиду zibodan, когда говорил про Labels, в которые он выводил результат расчетов? Может, просто перепутал названия?
zoomix
Вы про пример Calculated Footer.zip ?
Результат можно вывести и через Label,
Например вместо этого
Form1.GridAbonent.Columns[3].Footer.Caption := IntToStr(q); // result
написать
Form1.Label1.Caption := IntToStr(q);
Спасибо, попробую
My Visual Database → Russian → Помощь. Итог по Grid в Footer
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi