Handle Script Events to Calculate Custom Summaries

• Aug 03, 2020
• 4 minutes to read

This example illustrates a legacy approach to evaluate a custom summary over a report’s data.

Important

Report scripts are not secure. We recommend that you use expression bindings instead.

In this example a report is bound to the “Products” table (from the Northwind Traders demo database shipped with XtraReports). The following image illustrates this report’s design:

The following are the scripts used to calculate the minimum value for the UnitPrice data field in the Products table of the Northwind database. Note that for this example to work correctly, the xrLabel1 should be bound to the UnitPrice field, its XRSummary.Running property should be set to Report, and its XRSummary.Func property should be set to Custom. Then, switch to the Scripts tab, and handle the following script events of this label.

C#

System.Decimal minPrice = System.Decimal.MaxValue;

private void OnSummaryReset(object sender, System.EventArgs e) {
   minPrice = System.Decimal.MaxValue;
}

private void OnSummaryRowChanged(object sender, System.EventArgs e) {
    minPrice = Math.Min(minPrice, (System.Decimal)GetCurrentColumnValue("UnitPrice"));
}

private void OnSummaryGetResult(object sender, SummaryGetResultEventArgs e) {
    e.Result = minPrice;
    e.Handled = true;
}

VB.NET

Dim minPrice As System.Decimal = System.Decimal.MaxValue

Private Sub OnSummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
   minPrice = System.Decimal.MaxValue
End Sub

Private Sub OnSummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    minPrice = Math.Min(minPrice, GetCurrentColumnValue("UnitPrice"))
End Sub

Private Sub OnSummaryGetResult(ByVal sender As Object, ByVal e As SummaryGetResultEventArgs)
    e.Result = minPrice
    e.Handled = True
End Sub

The following are the scripts used to calculate the maximum value for the UnitPrice data field. Note that for this example to work correctly, the xrLabel2 should be bound to the UnitPrice field, its XRSummary.Running property should be set to Report, and its XRSummary.Func property should be set to Custom. Then, switch to the Scripts tab, and handle the following script events of this label.

C#

System.Decimal maxPrice = System.Decimal.MinValue;

private void OnSummaryReset(object sender, System.EventArgs e) {
   maxPrice = System.Decimal.MinValue;
}

private void OnSummaryRowChanged(object sender, System.EventArgs e) {
    maxPrice = Math.Max(maxPrice, (System.Decimal)GetCurrentColumnValue("UnitPrice"));
}

private void OnSummaryGetResult(object sender, SummaryGetResultEventArgs e) {
    e.Result = maxPrice;
    e.Handled = true;
}

VB.NET

Dim maxPrice As System.Decimal = System.Decimal.MinValue

Private Sub OnSummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
   maxPrice = System.Decimal.MinValue
End Sub

Private Sub OnSummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    maxPrice = Math.Max(maxPrice, GetCurrentColumnValue("UnitPrice"))
End Sub

Private Sub OnSummaryGetResult(ByVal sender As Object, ByVal e As SummaryGetResultEventArgs)
    e.Result = maxPrice
    e.Handled = True
End Sub

The following are the scripts used to calculate the average value for the UnitPrice data field. Note that for this example to work correctly, the xrLabel3 should be bound to the UnitPrice field, its XRSummary.Running property should be set to Report, and its XRSummary.Func property should be set to Custom. Then, switch to the Scripts tab, and handle the following script events of this label.

C#

System.Decimal totalPrice = 0;
int productsCount = 0;

private void OnSummaryReset(object sender, System.EventArgs e) {
  totalPrice = 0;
  productsCount = 0;
}

private void OnSummaryRowChanged(object sender, System.EventArgs e) {
  productsCount++;
  totalPrice += (System.Decimal)GetCurrentColumnValue("UnitPrice");
}

private void OnSummaryGetResult(object sender, SummaryGetResultEventArgs e) {
    e.Result = productsCount > 0 ? totalPrice / productsCount : 0;
    e.Handled = true;
}

VB.NET

Dim totalPrice As System.Decimal = 0
Dim productsCount As Integer = 0

Private Sub OnSummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
   totalPrice = 0
   productsCount = 0
End Sub

Private Sub OnSummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
   productsCount += 1
   totalPrice += GetCurrentColumnValue("UnitPrice")
End Sub

Private Sub OnSummaryGetResult(ByVal sender As Object, ByVal e As SummaryGetResultEventArgs)
    If productsCount > 0 Then e.Result = totalPrice / productsCount Else e.Result = 0
    e.Handled = True
End Sub

The following image illustrates the result: