Я пишу это сочетанием памяти и чтения справки QR ... У меня нет QR-кода для проверки того, что я говорю, поэтому вы должны проверить до того, как примет мой ответ;)
Удалите компонент TQRExpr на полосе нижнего колонтитула для этой группы.Затем найдите свойство Expression в Инспекторе объектов, и вы можете нажать кнопку с многоточием, чтобы запустить редактор выражений и построить новое выражение с помощью функции count.
Или вы можете ввести выражение вручную, например,'Count ( Table1.Field1 )'
Установите для свойства ResetAfterPrint значение true, чтобы указать компоненту установить счетчик в 0 до начала новой группы.
Возможно, вы захотитеиспользовать свойство Mask для форматирования этого числа.
Edit @none states Count не принимает никаких аргументов, поэтому я удалил тот, который изначально был заключен в скобки, но я неуверен, если вы должны использовать саму скобку или нет (у меня нет возможности проверить это).Если вы заинтересованы в использовании count вместо повторного изобретения колеса , прокомментируйте, работает ли оно, как показано сейчас - или нет -.