Суммирование по условию

[alexvav]

Подскажите пожалуйста такую штуку.
Есть база в access, необходимо получить сумму поля "K_vo" для всех строк с одинаковым "vid_p". Т.е.
Для vid_p - 1 = 1.6+4.7+5.04+5
Для vid_p - 2 = 6
Для vid_p - 7 = 5.5

Так я получил общую сумму, а вот сгруппировать не получается. И надо ли для этого индексировать подсчитывающие поля? Спасибо.

var
 s: real;
 n: integer;
begin
 s:=0;
 ADOQuery1.First;
 for n:=1 to ADOQuery1.RecordCount do
  begin
   s := s + ADOQuery1.FieldByName('Vid_p').AsFloat;
   ADOQuery1.Next;
   Label23.Caption :=FloatToStr(s);

end;

[Stilet]

select vid_p,sum(K_vo) as k_VO_SUMM from таблица group by vid_p

И далее просто проходом в цикле по набору от этого запроса - в поле k_VO_SUMM будут твои суммы.

[alexvav]

Хотел я отделаться малым куском кода, наверно надо уточнить.

1. Я из кучи данных сначала извлекаю нужные мне поля и записи:

ADOQuery1.SQL.Text:='SELECT n_dog,DATA,ZAK,k_vo,vid_p FROM rabota WHERE data BETWEEN :p1 AND :p2';

2. Затем полученные данные экспортирую в Excel:

DBGrid1.DataSource.DataSet.First; 
for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do 
begin 
for j:=1 to DBGrid1.FieldCount do 
 sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring; 
 inc(index); 
 DBGrid1.DataSource.DataSet.Next; 
end;

3.Но оказалось, что надо не просто экспортировать, а с итогами по каждой позиции vid_p

Тут то я и застрял. Я так понимаю, что надо какой-то цикл организовать, но как?

[Stilet]

У-у-у...
А вот енто, мил человек, не так делается...
Обычно чтоб не наступать на грабли настраивают Report-ы типа QReport или Fast Report, где группируют данные по содержимому. И межпрочим многие из репортов умеют в Экзель выгружать отчет
Впрочем если тебе всетки нужно именно так то придется делать сортировку по группам:

ADOQuery1.SQL.Text:='SELECT n_dog,DATA,ZAK,k_vo,vid_p FROM rabota WHERE data BETWEEN :p1 AND :p2 order by vid_p';

А в цикле:

with DBGrid1.DataSource.DataSet do begin
First; 
vid:=FieldByName('vid_p').AsInteger;
while not eof() begin 
 for j:=1 to FieldCount-1 do  sheet.cells[index,j]:=Fields[j-1].asstring; 
 if vid<>FieldByName('vid_p').AsInteger then begin
  sheet.cells[index,j]:='Группа '+IntToStr(vid);
  vid:=FieldByName('vid_p').AsInteger;
 end;
 Next;   inc(index); 
end;

Где vid:Integer; Судя по значениям этого поля.

[Аватар]

1. В запрос добавить ORDER BY vid_p
2.

DBGrid1.DataSource.DataSet.First;
xVidp:=-1;
WHILE NOT DBGrid1.DataSource.DataSet.EOF do begin
  if xVidp<>DBGrid1.DataSource.DataSet.FieldByName('vid_p').AsInteger do begin
    if xVidp<>-1 then begin
      //здесь обращение к процедуре формирование итого по группе, накопленная сумма в xKvo
    end;
    xKvo:=0;
    xVidp:=DBGrid1.DataSource.DataSet.FieldByName('vid_p').AsInteger;
    //здесь формирование заголовка группы
  end;
  xKvo:=xKvo+DBGrid1.DataSource.DataSet.FieldByName('k_vo').AsFloat;
  //здесь формирование строки деталиции
  DBGrid1.DataSource.DataSet.Next;
end;
if xVidp<>-1 then begin
  //здесь обращение к процедуре формирование итого по группе, накопленная сумма в xKvo
end;

[Stilet]

Аватар

А с With красивее получилось

[Аватар]

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

А с With красивее получилось

Если чесно - практически не использую With, очень часто в заблуждение вводит и при отладке определенные трудности

[Stilet]

Ну это дело привычки
И даже при отладке можно подсмотреть, проследив за аргументом With, как за структурой.

[alexvav]

Спасибо, пробую.

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

И межпрочим многие из репортов умеют в Экзель выгружать отчет

Когда-то пользовался RaveReports, но оказалось, что он никуда не экспортирует, и я решил, что они все такие и мне не годятся. А какие "репорты" могут экспортировать в эксель, на будущее?

[Stilet]

Ну я через QReport выгружал...
FastREport должен уметь...
Я вообще честно скажу - Все репорты фтопку, да здравствует HTML. Лучше репорта не найдешь. Впрочем это только ИМХО.