ОБСУЖДЕНИЕ

Посчитать итоги по одной странице

4 ответов 5,5 тыс.
Статус
Закрыто для дальнейших ответов.
Автор темы
Мне нужно ( для Word-отчёта) в SQL-процедуре посчитать итог по всем строкам
ДЛЯ КАЖДОЙ СТРАНИЦЫ ОТДЕЛЬНО, и вообще интересно это возможно, ведь количество записей на всех страницах может и не совпадать, например если сработает какая-нибудь автовысота(т.е. ширина текста будет больше ячейки).
 
Вам прямая дорога в генератор отчётов .. они как правило имеют такую функциональность.. ну или ручками считать итоги при выводе на страницы...
 
Barmutik "или ручками считать итоги при выводе на страницы..."

Я не могу посчитать ручками итог по отдельной странице, так как в SQL-процедуре я не знаю когда оборвётся страница.
Мне нужно в SQL-процедуре считать итог по странице, а не на Delphi.
 
Даже если пользоваться генератором отчётов, то поконкретней можно каким и как.
Заранее спасибо.
 
Код:
function worddocsheetscount(doc:olevariant):integer;
begin
result:=Doc.Application.ActiveDocument.ComputeStatistics($00000002, EmptyParam);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
oWord:OleVariant;
oDoc: oleVariant;

PCount:integer;
begin
oword:=createoleobject('word.application');
oword.visible:=true;
odoc:=oword.documents.add;
PCount:=worddocsheetscount(odoc);
showmessage(inttostr(pcount));
end;

Нажатие на button1 запускает ворд и создает новый документ. Функция worddocsheetscount возвращает число страниц документа. А итоги по страницам можно создать во время заполнения страниц, только нужно следить за их количеством.

ps Не прочитал вопрос до конца. Удалить бы эту мессагу.
 
Статус
Закрыто для дальнейших ответов.