Сумма в DBGrid

@DenisLTB · Регистрация: 29.01.2016

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

Всем доброго времени суток, подскажите как реализовать в таблице подсчет суммы в определенной колонке, при этом переходя на следующую строчку. Заранее спасибо

Добавлено через 14 минут

Delphi

procedure TMain.N5Click(Sender: TObject);
var s:integer;
begin
s:=0;
While not DataSet.eof do begin
      s:=DBGrid2.DataSource.DataSet.FieldByName('Kol').AsInteger;
      S:=s+s;
      break;
   end;
   DataSet.Next;
 end;
Edit4.Text:= StrToInt(s);
end;
 
end.

@krapotkin · 02.12.2016, 22:29

лучше всего сделать это отдельным запросом, не бегая по всей таблице. ну да бог с вами...

странное:
в строке 5 и 10 это Dataset
а в строке 6 аж DBGrid2.DataSource.DataSet.
если это один и тот же датасет, зачем такой пафос ? ))
если разные, то у вас ошибка.

если в строке 6 s:=25; например
а в строке 7
S:= S+S;
то S очевидно = 50
но так же очевидно, что S ВСЕГДА будет равен последнему значению поля Kol, умноженному на 2
что, жалко еще одну переменную завести?
SuperS := SuperS + S;

а самая главная ошибка - количество begin не равно количеству end
8 и 9 строки принес очевидно злой вирус. убейте их, пока не поздно.

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	02.12.2016, 22:29	2
	лучше всего сделать это отдельным запросом, не бегая по всей таблице. ну да бог с вами... странное: в строке 5 и 10 это Dataset а в строке 6 аж DBGrid2.DataSource.DataSet. если это один и тот же датасет, зачем такой пафос ? )) если разные, то у вас ошибка. если в строке 6 s:=25; например а в строке 7 S:= S+S; то S очевидно = 50 но так же очевидно, что S ВСЕГДА будет равен последнему значению поля Kol, умноженному на 2 что, жалко еще одну переменную завести? SuperS := SuperS + S; а самая главная ошибка - количество begin не равно количеству end 8 и 9 строки принес очевидно злой вирус. убейте их, пока не поздно. 0