Create a Calculated Field (Runtime Sample)

• Dec 06, 2022
• 2 minutes to read

Tip

Online Example: How to create a calculated field at runtime

This example demonstrates how a calculated field can be created at runtime and bound to a control’s XRControl.Text property.

C#

using System;
using System.Windows.Forms;
using DevExpress.XtraReports.UI;
using DevExpress.XtraReports.Configuration;
// ...

private void button1_Click(object sender, EventArgs e) {

    // Create a report.
    XtraReport1 report = new XtraReport1();

    // Create a calculated field 
    // and add it to the report's collection.
    CalculatedField calcField = new CalculatedField();
    report.CalculatedFields.Add(calcField);

    // Define the calculated field's properties.
    calcField.DataSource = report.DataSource;
    calcField.DataMember = report.DataMember;
    calcField.FieldType = FieldType.Double;
    calcField.DisplayName = "Calculated Field";
    calcField.Name = "myField";
    calcField.Expression = "[UnitPrice] * [UnitsInStock]";

    // Bind a label's Text property to the calculated field.
    report.FindControl("xrlabel2", true).DataBindings.Add("Text", null, "Order Details.myField");

    // Bind a label's Text property to the calculated field.
    new ExpressionBinding("BeforePrint", "Text", "FormatString('{0:c2}', [myField])"));

    // Display the report.
    ReportPrintTool printTool = new ReportPrintTool(report);
    printTool.ShowPreviewDialog();
}

VB.NET

Imports System
Imports System.Windows.Forms
Imports DevExpress.XtraReports.UI
Imports DevExpress.XtraReports.Configuration
' ...

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click

    ' Create a report.
    Dim report As New XtraReport1()

    ' Create a calculated field, 
    ' and add it to the report's collection.
    Dim calcField As New CalculatedField()
    report.CalculatedFields.Add(calcField)

    ' Define the calculated field's properties.
    calcField.DataSource = report.DataSource
    calcField.DataMember = report.DataMember
    calcField.FieldType = FieldType.Double
    calcField.DisplayName = "A Calculated Field"
    calcField.Name = "myField"
    calcField.Expression = "[UnitPrice] * [Quantity]"

    ' Bind a label's Text property to the calculated field.
    report.FindControl("xrlabel3", True).ExpressionBindings.Add(
        New ExpressionBinding("BeforePrint", "Text", "FormatString('{0:c2}', [myField])"))    

    ' Display the report.
    Dim pt As New ReportPrintTool(report)
    pt.ShowPreviewDialog()
End Sub

The result is shown in the following image.