WinForms Data Grid - Select all detail rows when selecting a master row (Web style selection)

C#
using DevExpress.XtraGrid.Views.Grid;
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace TestMasterDetailSelection
{
    public partial class Form1 : DevExpress.XtraEditors.XtraForm
    {
        public Form1()
        {
            InitializeComponent();
            gridControl1.DataSource = GetData(10, 10);
            new MasterDetailSelectionHelper(gridView1);
        }

        BindingList<Customer> GetData(int custCount, int orderCount)
        {
            BindingList<Customer> custList = new BindingList<Customer>();
            Random r = new Random();
            for (int i = 0; i < custCount; i++)
            {
                Customer cust = custList.AddNew();
                cust.ID = i;
                cust.Name = "Name" + i;
                for (int j = 0; j < orderCount; j++)
                {
                    cust.Orders.Add(new Order() { ID = j });
                    int productCount = r.Next(10);
                    for (int k = 0; k < productCount; k++)
                    {
                        cust.Orders[j].Products.Add(new Product() { ID = k, Name = "Product" + k, Price = r.Next(100) });
                    }
                }
            }
            return custList;
        }

        private void gridControl1_ViewRegistered(object sender, DevExpress.XtraGrid.ViewOperationEventArgs e)
        {
            new MasterDetailSelectionHelper(e.View as GridView);
        }
    }

    public class Customer 
    {
        public Customer() 
        {
            _Orders = new BindingList<Order>();
        }
        int _ID = 0;
        string _Name = "";
        BindingList<Order> _Orders;
        
        public int ID
        {
            get { return _ID; }
            set { _ID = value; }
        }
        public string Name
        {
            get { return _Name; }
            set { _Name = value; }
        }
        public BindingList<Order> Orders
        {
            get { return _Orders; }
            set { _Orders = value; }
        }
    }

    public class Order 
    {
        public Order() 
        {
            _Products = new BindingList<Product>();
        }

        int _ID = 0;
        BindingList<Product> _Products;

        public int ID
        {
            get { return _ID; }
            set { _ID = value; }
        }
        public int Sum
        {
            get 
            {
                int sum = 0;
                foreach(Product product in _Products)
                {
                    sum += product.Price;
                }
                return sum; 
            }
        }
        public BindingList<Product> Products
        {
            get { return _Products; }
            set { _Products = value; }
        }
    }

    public class Product 
    {
        public Product() { }
        int _ID = 0;
        string _Name = "";
        int _Price = 0;
        public int ID
        {
            get { return _ID; }
            set { _ID = value; }
        }
        public string Name
        {
            get { return _Name; }
            set { _Name = value; }
        }
        public int Price
        {
            get { return _Price; }
            set { _Price = value; }
        }


    }
}

Visual Basic
Imports Microsoft.VisualBasic
Imports DevExpress.XtraGrid.Views.Grid
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Namespace TestMasterDetailSelection
    Partial Public Class Form1
        Inherits DevExpress.XtraEditors.XtraForm
        Public Sub New()
            InitializeComponent()
            gridControl1.DataSource = GetData(10, 10)
            Dim TempMasterDetailSelectionHelper As MasterDetailSelectionHelper = New MasterDetailSelectionHelper(gridView1)
        End Sub

        Private Function GetData(ByVal custCount As Integer, ByVal orderCount As Integer) As BindingList(Of Customer)
            Dim custList As New BindingList(Of Customer)()
            Dim r As New Random()
            For i As Integer = 0 To custCount - 1
                Dim cust As Customer = custList.AddNew()
                cust.ID = i
                cust.Name = "Name" & i
                For j As Integer = 0 To orderCount - 1
                    cust.Orders.Add(New Order() With {.ID = j})
                    Dim productCount As Integer = r.Next(10)
                    For k As Integer = 0 To productCount - 1
                        cust.Orders(j).Products.Add(New Product() With {.ID = k, .Name = "Product" & k, .Price = r.Next(100)})
                    Next k
                Next j
            Next i
            Return custList
        End Function

        Private Sub gridControl1_ViewRegistered(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.ViewOperationEventArgs) Handles gridControl1.ViewRegistered
            Dim TempMasterDetailSelectionHelper As MasterDetailSelectionHelper = New MasterDetailSelectionHelper(TryCast(e.View, GridView))
        End Sub
    End Class

    Public Class Customer
        Public Sub New()
            _Orders = New BindingList(Of Order)()
        End Sub
        Private _ID As Integer = 0
        Private _Name As String = ""
        Private _Orders As BindingList(Of Order)

        Public Property ID() As Integer
            Get
                Return _ID
            End Get
            Set(ByVal value As Integer)
                _ID = value
            End Set
        End Property
        Public Property Name() As String
            Get
                Return _Name
            End Get
            Set(ByVal value As String)
                _Name = value
            End Set
        End Property
        Public Property Orders() As BindingList(Of Order)
            Get
                Return _Orders
            End Get
            Set(ByVal value As BindingList(Of Order))
                _Orders = value
            End Set
        End Property
    End Class

    Public Class Order
        Public Sub New()
            _Products = New BindingList(Of Product)()
        End Sub

        Private _ID As Integer = 0
        Private _Products As BindingList(Of Product)

        Public Property ID() As Integer
            Get
                Return _ID
            End Get
            Set(ByVal value As Integer)
                _ID = value
            End Set
        End Property
        Public ReadOnly Property Sum() As Integer
            Get
'INSTANT VB NOTE: The local variable sum was renamed since Visual Basic will not allow local variables with the same name as their enclosing function or property:
                Dim sum_Renamed As Integer = 0
                For Each product As Product In _Products
                    sum_Renamed += product.Price
                Next product
                Return sum_Renamed
            End Get
        End Property
        Public Property Products() As BindingList(Of Product)
            Get
                Return _Products
            End Get
            Set(ByVal value As BindingList(Of Product))
                _Products = value
            End Set
        End Property
    End Class

    Public Class Product
        Public Sub New()
        End Sub
        Private _ID As Integer = 0
        Private _Name As String = ""
        Private _Price As Integer = 0
        Public Property ID() As Integer
            Get
                Return _ID
            End Get
            Set(ByVal value As Integer)
                _ID = value
            End Set
        End Property
        Public Property Name() As String
            Get
                Return _Name
            End Get
            Set(ByVal value As String)
                _Name = value
            End Set
        End Property
        Public Property Price() As Integer
            Get
                Return _Price
            End Get
            Set(ByVal value As Integer)
                _Price = value
            End Set
        End Property


    End Class
End Namespace

C#
using DevExpress.XtraGrid;
using DevExpress.XtraGrid.Views.Base;
using DevExpress.XtraGrid.Views.Grid;
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace TestMasterDetailSelection
{
    public class MasterDetailSelectionHelper
    {
        public MasterDetailSelectionHelper(GridView gridView)
        {
            _GridView = gridView;
            _GridView.MasterRowExpanded += _GridView_MasterRowExpanded;
            _GridView.SelectionChanged += _GridView_SelectionChanged;
        }

        void _GridView_SelectionChanged(object sender, DevExpress.Data.SelectionChangedEventArgs e)
        {
            if (_GridView.IsDetailView)
            {
                int masterRowHandle = _GridView.SourceRowHandle;
                if (_GridView.GetSelectedRows().Length == _GridView.RowCount)
                {
                    (_GridView.ParentView as GridView).SelectRow(masterRowHandle);
                }
                else if (_GridView.GetSelectedRows().Length == 0)
                    (_GridView.ParentView as GridView).UnselectRow(masterRowHandle);
            }
            if (_GridView.IsMasterRow(e.ControllerRow) || e.ControllerRow == GridControl.InvalidRowHandle)
            {
                UpdateSelection(e.ControllerRow);
            }
            if (e.Action == CollectionChangeAction.Refresh)
            {
                foreach (BaseView view in _GridView.GridControl.Views)
                {
                    if (view.IsDetailView)
                    {
                        int masterRowHandle = view.SourceRowHandle;
                        UpdateSelection(masterRowHandle);
                    }
                }
            }
        }

        void _GridView_MasterRowExpanded(object sender, CustomMasterRowEventArgs e)
        {
            UpdateSelection(e.RowHandle);
        }

        void UpdateSelection(int masterRowHandle)
        {
            GridView detailView = _GridView.GetDetailView(masterRowHandle, 0) as GridView;
            if (detailView != null)
            {
                if (_GridView.IsRowSelected(masterRowHandle))
                {
                    detailView.SelectAll();
                }
                else
                {
                    detailView.ClearSelection();
                }
            }

        }

        GridView _GridView;
    }
}

Visual Basic
Imports Microsoft.VisualBasic
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms

Namespace TestMasterDetailSelection
    Public Class MasterDetailSelectionHelper
        Public Sub New(ByVal gridView As GridView)
            _GridView = gridView
            AddHandler _GridView.MasterRowExpanded, AddressOf _GridView_MasterRowExpanded
            AddHandler _GridView.SelectionChanged, AddressOf _GridView_SelectionChanged
        End Sub

        Private Sub _GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
            If _GridView.IsDetailView Then
                Dim masterRowHandle As Integer = _GridView.SourceRowHandle
                If _GridView.GetSelectedRows().Length = _GridView.RowCount Then
                    TryCast(_GridView.ParentView, GridView).SelectRow(masterRowHandle)
                ElseIf _GridView.GetSelectedRows().Length = 0 Then
                    TryCast(_GridView.ParentView, GridView).UnselectRow(masterRowHandle)
                End If
            End If
            If _GridView.IsMasterRow(e.ControllerRow) OrElse e.ControllerRow = GridControl.InvalidRowHandle Then
                UpdateSelection(e.ControllerRow)
            End If
            If e.Action = CollectionChangeAction.Refresh Then
                For Each view As BaseView In _GridView.GridControl.Views
                    If view.IsDetailView Then
                        Dim masterRowHandle As Integer = view.SourceRowHandle
                        UpdateSelection(masterRowHandle)
                    End If
                Next view
            End If
        End Sub

        Private Sub _GridView_MasterRowExpanded(ByVal sender As Object, ByVal e As CustomMasterRowEventArgs)
            UpdateSelection(e.RowHandle)
        End Sub

        Private Sub UpdateSelection(ByVal masterRowHandle As Integer)
            Dim detailView As GridView = TryCast(_GridView.GetDetailView(masterRowHandle, 0), GridView)
            If detailView IsNot Nothing Then
                If _GridView.IsRowSelected(masterRowHandle) Then
                    detailView.SelectAll()
                Else
                    detailView.ClearSelection()
                End If
            End If

        End Sub

        Private _GridView As GridView
    End Class
End Namespace