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

  • Автор темы maxshuv
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

maxshuv

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

Barmutik

Вам прямая дорога в генератор отчётов .. они как правило имеют такую функциональность.. ну или ручками считать итоги при выводе на страницы...
 
M

maxshuv

Barmutik "или ручками считать итоги при выводе на страницы..."

Я не могу посчитать ручками итог по отдельной странице, так как в SQL-процедуре я не знаю когда оборвётся страница.
Мне нужно в SQL-процедуре считать итог по странице, а не на Delphi.
 
M

maxshuv

Даже если пользоваться генератором отчётов, то поконкретней можно каким и как.
Заранее спасибо.
 
R

Razoomnick

Код:
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 Не прочитал вопрос до конца. Удалить бы эту мессагу.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!