Текущий архив: 2002.06.06;
Скачать: CL | DM;

Вниз

Сумма по столбцу DbGrid   Найти похожие ветки 

← →
dorixe ©   (2002-05-16 13:28) [0]

SMP!
как проссумировать по столбцу dbgrid только то что высвечивается а не польный набор данных по столбцу и занести это в dbedit

Thanks!

---

← →
Lusha ©   (2002-05-16 13:49) [1]

Пожалуйста... Накапливаем в Total...

Total := 0;
OldRow := TMyDBGrid(DBGrid1).DataLink.ActiveRecord;
with TMyDBGrid(DBGrid1) do
for I := 0 to VisibleRowCount - 1 do
begin
DataLink.ActiveRecord := I;
Total := Total + DataLink.DataSource.DataSet.FieldByName("Field1").AsInteger;
end;
TMyDBGrid(DBGrid1).DataLink.ActiveRecord := OldRow;

где TMyDBGrid = class(TDBGrid)...

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.016 c