TopPicLogo TopPicText

Как посчитать сумму столбца в отчете на каждой странице

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
'Событие форматирования Заголовка страницы (Верхний Колонтитул)
'--------------------------------------------------------------------
    Me!fldPageSum = 0 'Поле "Итого по странице"
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'Событие печати блока деталей отчета
'--------------------------------------------------------------------
    If PrintCount = 1 Then
        'Последовательно прибавляем сумму в каждой строке к сумме по странице
        Me!fldPageSum = Me!fldPageSum + Me!fldTotal
    End If
End Sub



Может выглядеть примерно так:

Picture

Назад ToTop
L.E. 09.01.2013
Рейтинг@Mail.ru