Итоговые итоги страницы на последней странице в репозитории RDLC

Question

Я использую rdlc reprot в VB (Visual Studio) с MS Sql Express. Я хочу вывод, как указано ниже:

SrNo.      Amount
1          100
2          100
3          100
4          100
Group Total = 400
5          200
6          200
Page1 Total = 800
***************************PAGE1 END HERE****************
7.         200
8.         200
9          200
Group2 Total=1000
Page2 Total = 600
****************************PAGE 2 END HERE*****************

Page1 Total = 800
Page 2 Total =600

Grand Total = 1400
******************************LAST PAGE END HERE**************

Я могу получить все выходные данные, кроме итогов Page1 и Total Page2 на последней странице.

Для итоговой группы я использовал функцию Sum rdlc с областью действия Table1_Group2.

Для общего итога я использовал функцию суммы rdlc с областью набора данных.

Для итогов Page Wise на каждой странице я использовал текстовое поле Reprot footer с кодом =Sum(ReportItems!amt.Value).

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

Answer 1

Вы можете использовать код VB на вкладке Код. добавить свойство и метод общего списка принять 2 параметра Всего 1 страница 2-номер страницы (используйте этот метод "Globals! PageNumber.ToString ()") добавить текстовое поле в нижний колонтитул и в выражении вызвать этот метод на последней странице ("Globals! PageNumber.ToString () = Globals! TotalPages.ToString ()") использовать общее свойство

Answer 2

Я протестировал его в своей среде, для справки нижеприведенные шаги.

1 - Откройте окно кода отчета, щелкнув Меню отчета -> Свойства отчета, и щелкните вкладку кода

2-Добавьте приведенный ниже код в окно кода

Public Shared PageTotal As System.Collections.Generic.Dictionary(Of Integer, Decimal)
Public Shared Function Total(ByVal Item As Integer, byval Amount As Decimal) As Decimal
If PageTotal Is Nothing Then
PageTotal = New System.Collections.Generic.Dictionary(Of Integer, Decimal)
End If
If Not PageTotal.ContainsKey(Item) Then
PageTotal.Add(Item, Amount)
End If
Return Amount
End Function
Public Shared Function GetTotal(ByVal Item As Integer) As String
if Item=1 then return ""
Return PageTotal(Item-1).ToString()
End Function

3-В нижнем колонтитуле отчета замените текущее выражение следующим кодом = Code.Total (Globals! PageNumber, Sum (Элементы отчета! Credit.Value))

4-В заголовке страницы добавьте текстовое поле и введите ниже выражение = Code.GetTotal (Globals! PageNumber)

Запустить проект

**** ПРИМЕЧАНИЕ Установите режим отображения перед просмотром отчета

reportViewer1.SetDisplayMode (DisplayMode.PrintLayout);