Reporting for WinForms - How to provide custom names for the Field List data items

C#
using System;
using System.Windows.Forms;
using DevExpress.DataAccess.Sql;
using DevExpress.XtraReports.UI;
// ...

namespace docCustomDataItemsNames {
    public partial class Form1 : Form {
        public Form1() {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e) {
            XtraReport1 report = new XtraReport1();
            report.DataSource = new MySqlDataSource((SqlDataSource)report.DataSource);
            ReportDesignTool designTool = new ReportDesignTool(report);
            designTool.ShowDesignerDialog();
        }
    }
}

Visual Basic
Imports System
Imports System.Windows.Forms
Imports DevExpress.DataAccess.Sql
Imports DevExpress.XtraReports.UI

' ...
Namespace docCustomDataItemsNames

    Public Partial Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim report As XtraReport1 = New XtraReport1()
            report.DataSource = New MySqlDataSource(CType(report.DataSource, SqlDataSource))
            Dim designTool As ReportDesignTool = New ReportDesignTool(report)
            designTool.ShowDesignerDialog()
        End Sub
    End Class
End Namespace

C#
using System;
using DevExpress.Data;
using DevExpress.DataAccess.Sql;

namespace docCustomDataItemsNames
{
    public class MySqlDataSource : SqlDataSource, IDisplayNameProvider
    {
        public MySqlDataSource() {
        }

        public MySqlDataSource(SqlDataSource copyFrom) {
            this.LoadFromXml(copyFrom.SaveToXml());
        }
        string IDisplayNameProvider.GetDataSourceDisplayName() {
            // Substitute the default datasource display name
            // with a custom one.
            return "Northwind Traders";
        }

        string IDisplayNameProvider.GetFieldDisplayName(string[] fieldAccessors) {
            // Get a field name form the data member's name. 
            string fieldName = fieldAccessors[fieldAccessors.Length - 1];

            // Hide the data member if its name ends with 'ID'.
            if (fieldName.EndsWith("ID")) {
                return null;
            }

            // Hide the 'Products' table, because its fields are accessible 
            // via the 'CategoriesProducts' relation only.
            if (fieldAccessors[0].StartsWith("Products")) {
                return null;
            }

            // Insert spaces between separate words of a field name.
            return ChangeNames(fieldName);
        }
        public string ChangeNames(string name) {
            string result = string.Empty;
            bool isPrevLow = false;

            foreach (char symb in name) {
                // Check if a character is of upper case.
                // To avoid spaces inside abbreviations, 
                // check if the previous character is of upper case, too.
                if (Char.IsUpper(symb) && isPrevLow) {
                    result += " " + symb;
                }
                else {
                    result += symb;
                }
                isPrevLow = Char.IsLower(symb);
            }
            return result;
        }
    }
}

Visual Basic
Imports DevExpress.Data
Imports DevExpress.DataAccess.Sql

Namespace docCustomDataItemsNames
    Public Class MySqlDataSource
        Inherits SqlDataSource
        Implements IDisplayNameProvider

        Public Sub New()
        End Sub

        Public Sub New(ByVal copyFrom As SqlDataSource)
            LoadFromXml(copyFrom.SaveToXml())
        End Sub

        Private Function GetDataSourceDisplayName() As String Implements IDisplayNameProvider.GetDataSourceDisplayName
            ' Substitute the default datasource display name
            ' with a custom one.
            Return "Northwind Traders"
        End Function

        Private Function GetFieldDisplayName(ByVal fieldAccessors As String()) As String Implements IDisplayNameProvider.GetFieldDisplayName
            ' Get a field name form the data member's name. 
            Dim fieldName As String = fieldAccessors(fieldAccessors.Length - 1)
            ' Hide the data member if its name ends with 'ID'.
            If fieldName.EndsWith("ID") Then
                Return Nothing
            End If

            ' Hide the 'Products' table, because its fields are accessible 
            ' via the 'CategoriesProducts' relation only.
            If fieldAccessors(0).StartsWith("Products") Then
                Return Nothing
            End If

            ' Insert spaces between separate words of a field name.
            Return ChangeNames(fieldName)
        End Function

        Public Function ChangeNames(ByVal name As String) As String
            Dim result As String = String.Empty
            Dim isPrevLow As Boolean = False
            For Each symb As Char In name
                ' Check if a character is of upper case.
                ' To avoid spaces inside abbreviations, 
                ' check if the previous character is of upper case, too.
                If Char.IsUpper(symb) AndAlso isPrevLow Then
                    result += " " & symb
                Else
                    result += symb
                End If

                isPrevLow = Char.IsLower(symb)
            Next

            Return result
        End Function
    End Class
End Namespace