| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемка с ZReport [D5, Win2k]

slyfox ©   (2002-12-25 06:42:00) 

Привет всем у меня проблемка возникла
сгруперовал я данные вывел сумму по каждой группе
а обшию вы вести не могу.Поможите люде добые плиз?

---

slyfox   (2002-12-25 08:51:00) [1]

Сделал так
var sum : integer;
begin
sum:=0;
Table1.First;
while not Avans.Table1.Eof do
begin
Sum:=sum+Table1["Summa"];
Table1.Next;
end;

ZRLabel100.Caption:=inttostr(sum);
ZReport5.Preview;
показывает кол-во записей в отчете

---

slyfox   (2002-12-25 07:17:00) [2]

Спасибо !
Ща попробую.

---

Nevel   (2002-12-25 06:50:00) [3]

В своё время Я тоже столкнулся с такой проблемой и решил её так:

var
s:string;
nExport,nimport:LongInt;
begin
nimport:=0;
nExport:=0;
Dm1.Table1.First;
With DM1.Table1 do while not eof do
begin
nexport:=nexport+DM1.Table1["Export"];
nimport:=nimport+DM1.Table1["Import"];
next;
end;
Form7.QRLabel6.Caption:=IntToStr(nExport);
Form7.QRLabel7.Caption:=IntToStr(nImport);
Form7.QuickRep1.Preview;
end;

Здесь программа должна считать сумму поля: Table1["Export"] и Table1["Import"] Я сделал через перебор таблици и подсчёт Занимает время зато работает.

---

Наверх