Подсчитать сумму определенного поля

@Plug · Регистрация: 16.05.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Пытаюсь сделать отчет, данные которого берутся из таблицы "Инструменты", она выглядит примерно так(это только пример, таблица может выглядеть по другому, если в нее добавят еще записи):
Инструмент Сумма
Гитара 100000
Скрипка 80000
Гитара 120000
Барабан 90000

В отчете мне надо вывести суммированные значение по сумме инструмента(сам не понял что сказал), т.е. как видите в таблице "Инструменты", две записи с гитарой, и в отчете эти значения должны быть суммированы. Пример отчета:

Гитара 220000
Скрипка 80000
Барабан 90000

Пробовал через фильтр, но не получилось... Отчет делаю через QReport

@Sasha · 22.06.2011, 11:04

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

Можно и по колхозному - запихивать в какаие-нибудь лабельки, расположенные поблизости от грида и снабженные пояснительными надписями

А ты не мог бы показать пример по колхозному?

Добавлено через 47 секунд
А именно как ты из запроса будешь распихивать переменные?

@MsGuns · 22.06.2011, 11:33

Да нет вопросов:

В модуле, где датасет, положить компонент TADODataSet, настроенный на тот же коннект, сто
и "основной". Пусть имя его будет adsSummary

В обработчике события AfterOpen основного (который в гриде) датасета

C++
1
2
3
4
5
6
7
8
9
  if (adsSummary->Active) adsSummary->Close();
  adsSummaru->CommandText = "Select SUM(A.F1) as SF1, SUM(A.F2) as SF2... from (" + \
                     (TADODataSet *)DataSet->CommandText + ") A";
  Open();
  // Эту часть можно не писать если использовались для отображения DB-aware компоненты
  lbF1SUM->Caption = adsSummary->FieldByName("SF1")->AsString;
  lbF2SUM->Caption = adsSummary->FieldByName("SF2")->AsString;
  ...
  Close();

Добавлено через 1 минуту
Пардон: Open и Close конечно же с предшествующим adsSummary->

Добавлено через 52 секунды
И еще. В случае с DB-aware Close тоже не нужен

@Plug · 22.06.2011, 19:01 **[ТС]**

Все отлично!=) Как раз то что нужно!
Вот только теперь еще хочу к этому отфильтровать по дате.
Т.е. сначала идет проверка на дату(которая находится в Эдите), а потом группировка.

Делаю так:

C#
1
2
3
4
5
qry1->Filtered=false;
qry1->Filter="Data<='"+edt1->Text+"'";
qry1->Filtered=true;
qry1->SQL->Text="SELECT instrument, sum(Summa) as summ  FROM Instruments group by instrument";
qry1->Active=true;

И выскакивает ошибка:
"Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру"

Хотя такие объекты должны быть! Подскажите пожалуйста в чем проблема...

@Sasha · 23.06.2011, 00:18

А в каком виде у тебя дата?

@MsGuns · 23.06.2011, 10:24

Эта.. либо Фома (манипуляции с фильтром) либо Ерема (изменение текста запроса и переоткрытие его)

Перед

qry1->SQL->Text=..

надо ставить

qry->Close();

@Sasha · 23.06.2011, 12:54

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

Эта.. либо Фома (манипуляции с фильтром) либо Ерема (изменение текста запроса и переоткрытие его)

Перед

qry1->SQL->Text=..

надо ставить

qry->Close();

Да и очистить не мешалобы перед формированием строки запроса

C++
1
qry1->SQL->Clear();

@MsGuns · 23.06.2011, 14:07

Delphi
1
Да и очистить не мешалобы перед формированием строки запроса

Зачем солить соль ?

@Plug · 24.06.2011, 21:01 **[ТС]**

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

Эта.. либо Фома (манипуляции с фильтром) либо Ерема (изменение текста запроса и переоткрытие его)
Перед
qry1->SQL->Text=..
надо ставить
qry->Close();

Нет... Все равно та же ошибка...

Добавлено через 28 минут
А если создать новую пустую таблицу с такими же полями, отсортировать таблицу Инструменты по дате, перекинуть все записи во вторую(новую) таблицу и там уже применить sql запрос? Должно ведь сработать, верно?
Вот только не получается что-то у меня перекинуть записи во вторую таблицу. Делаю так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
qry2->First();
while(!qry2->Eof)
{
qry2->Delete();
qry2->Next();
 
qry2->Close();
}
 
 
   
qry1->First();
while(!qry2->Eof)
{
qry2->Insert();
qry2->Fields->FieldByName("Instrument")->AsString=qry1Instrument->AsString;
qry2->Fields->FieldByName("summa")->Value=qry1Summa->Value;
qry2->Post();
qry1->Next();
}

Вот только что-то тут видимо не правильно, потому что ничего не происходит =)

@MsGuns · 25.06.2011, 10:05

Delphi
1
2
3
4
5
6
7
8
qry2->First();
while(!qry2->Eof)
{
qry2->Delete();
qry2->Next();
 
qry2->Close();
}

Трудно жить на свете октябренку Пете, бьет его по роже пионер Сережа..

Вы слышали про отладчик ? Ну так включите и посмотрите что делает эта Ваша "очистка"
И вообще Ваши ошибки.. Элементарно фиксятся дебаггером. Так шта.. ветка затянулась и перестала быть интересной, Вам не кажется ?

@Plug · 25.06.2011, 13:30 **[ТС]**

Очистка таблицы в начале там нужна была. Проблема была не в этом, я просто надо было потом писать не while(!qry2->Eof) а while(!qry1->Eof)

Теперь делаю запрос на вторую таблицу

Все теперь вроде нормально. Вот только отчет создается не правильно...
Создается только на ту запись в которой стоит позиция в таблице Instrument2, причем получается что в отчете не одна запись, а столько сколько их в таблице но данные берутся из той на которой стоит позиция.
Объясните, пожалуйста, еще в чем тут ошибка, и я больше не потревожу вас глупыми вопросами

Добавлено через 10 минут
Ан нет... Спасибо, решил проблему сам!

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Plug 6 / 6 / 0 Регистрация: 16.05.2010 Сообщений: 98

	Подсчитать сумму определенного поля 20.06.2011, 23:02. Показов 4684. Ответов 29 Метки нет (Все метки) Здравствуйте! Пытаюсь сделать отчет, данные которого берутся из таблицы "Инструменты", она выглядит примерно так(это только пример, таблица может выглядеть по другому, если в нее добавят еще записи): Инструмент Сумма Гитара 100000 Скрипка 80000 Гитара 120000 Барабан 90000 В отчете мне надо вывести суммированные значение по сумме инструмента(сам не понял что сказал), т.е. как видите в таблице "Инструменты", две записи с гитарой, и в отчете эти значения должны быть суммированы. Пример отчета: Гитара 220000 Скрипка 80000 Барабан 90000 Пробовал через фильтр, но не получилось... Отчет делаю через QReport 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	23.06.2011, 00:18
	А в каком виде у тебя дата? 1

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	23.06.2011, 10:24
	Эта.. либо Фома (манипуляции с фильтром) либо Ерема (изменение текста запроса и переоткрытие его) Перед qry1->SQL->Text=.. надо ставить qry->Close(); 1

@Plug 6 / 6 / 0 Регистрация: 16.05.2010 Сообщений: 98
	25.06.2011, 13:30 [ТС]
	Очистка таблицы в начале там нужна была. Проблема была не в этом, я просто надо было потом писать не while(!qry2->Eof) а while(!qry1->Eof) Теперь делаю запрос на вторую таблицу Все теперь вроде нормально. Вот только отчет создается не правильно... Создается только на ту запись в которой стоит позиция в таблице Instrument2, причем получается что в отчете не одна запись, а столько сколько их в таблице но данные берутся из той на которой стоит позиция. Объясните, пожалуйста, еще в чем тут ошибка, и я больше не потревожу вас глупыми вопросами Добавлено через 10 минут Ан нет... Спасибо, решил проблему сам! 0