Reporting for WinForms - Master-Detail Report with a Subreport

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace dxSample {
    public partial class Form1 : DevExpress.XtraBars.ToolbarForm.ToolbarForm {
        public Form1() {
            InitializeComponent();
        }

        private void barButtonItem1_ItemClick(object sender, DevExpress.XtraBars.ItemClickEventArgs e) {
            barButtonItem2.Down = false;
            var report = new MasterReport();
            report.CreateDocument();
            this.documentViewer1.DocumentSource = report;
        }

        private void barButtonItem2_ItemClick(object sender, DevExpress.XtraBars.ItemClickEventArgs e) {
            barButtonItem1.Down = false;
            var report = new MasterReportOne();
            report.DataSource = CategoryProductDataSource.GetData();
            report.CreateDocument();
            this.documentViewer1.DocumentSource = report;
        }


    }
}

Visual Basic
Imports System.ComponentModel
Imports System.Text


Partial Public Class Form1
    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        BarButtonItem2.Down = False
        Dim report As New MasterReport()
        report.CreateDocument()
        DocumentViewer1.DocumentSource = report
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        BarButtonItem1.Down = False
        Dim report As New MasterReportOne()
        report.DataSource = CategoryProductDataSource.GetData()
        report.CreateDocument()
        DocumentViewer1.DocumentSource = report
    End Sub
End Class

C#
using DevExpress.XtraReports.UI;
using System;
using System.Collections;
using System.ComponentModel;
using System.Drawing;

namespace dxSample {
    public partial class MasterReportOne : DevExpress.XtraReports.UI.XtraReport {
        public MasterReportOne() {
            InitializeComponent();
        }

        private void xrSubreport1_BeforePrint(object sender, CancelEventArgs e) {
            var category = GetCurrentRow() as Category;
            ((XRSubreport)sender).ReportSource.DataSource = category.Products;
        }
    }
}

Visual Basic
Imports DevExpress.XtraReports.UI

Public Class MasterReportOne
    Private Sub xrSubreport1_BeforePrint(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles xrSubreport1.BeforePrint
        Dim category = DirectCast(GetCurrentRow(), Category)
        CType(sender, XRSubreport).ReportSource.DataSource = category.Products
    End Sub
End Class

C#
using System.Collections.Generic;

public class Category {
    public int CategoryId { get; set; }
    public string CategoryName { get; set; }
    public string Description { get; set; }
    public List<Product> Products { get; set; }
}

public class Product {
    public string ProductName { get; set; }
    public double UnitPrice { get; set; }
}

public static class CategoryProductDataSource {
    public static List<Category> GetData() {
        return new List<Category>
        {
                new Category()
                {
                    CategoryName = "Beverages",
                    Description = "Soft drinks, coffees, teas, beers, and ales",
                    Products = new List<Product>
                    {
                        new Product{ ProductName = "Chai", UnitPrice = 18 },
                        new Product{ ProductName = "Chang", UnitPrice = 19 },
                        new Product{ ProductName = "Guaraná Fantástica", UnitPrice = 4.5 }
                    },
                },

                new Category()
                {
                    CategoryName = "Condiments",
                    Description = "Sweet and savory sauces, relishes, spreads, and seasonings",
                    Products = new List<Product>
                    {
                        new Product{ ProductName = "Aniseed Syrup", UnitPrice = 10 },
                        new Product{ ProductName = "Chef Anton's Cajun Seasoning", UnitPrice = 22 },
                        new Product{ ProductName = "Chef Anton's Gumbo Mix", UnitPrice = 21.35 },
                        new Product{ ProductName = "Grandma's Boysenberry Spread", UnitPrice = 25 }
                    },
                },

                new Category()
                {
                    CategoryName = "Confections",
                    Description = "Desserts, candies, and sweet breads",
                    Products = new List<Product>
                    {
                        new Product{ ProductName = "Pavlova", UnitPrice = 17.45 },
                        new Product{ ProductName = "Teatime Chocolate Biscuits", UnitPrice = 9.2 },
                        new Product{ ProductName = "Sir Rodney's Marmalade", UnitPrice = 81 },
                        new Product{ ProductName = "Sir Rodney's Scones", UnitPrice = 10 },
                        new Product{ ProductName = "NuNuCa Nuß-Nougat-Creme", UnitPrice = 14 },
                    },
                }
            };
    }
}

Visual Basic
Imports System.Collections.Generic

Public Class Category
    Public Property CategoryId As Integer
    Public Property CategoryName As String
    Public Property Description As String
    Public Property Products As List(Of Product)
End Class

Public Class Product
    Public Property ProductName As String
    Public Property UnitPrice As Double
End Class

Module CategoryProductDataSource
    Function GetData() As List(Of Category)
        Return New List(Of Category) From {
            New Category() With {
                .CategoryName = "Beverages",
                .Description = "Soft drinks, coffees, teas, beers, and ales",
                .Products = New List(Of Product) From {
                    New Product With {
                        .ProductName = "Chai",
                        .UnitPrice = 18
                    },
                    New Product With {
                        .ProductName = "Chang",
                        .UnitPrice = 19
                    },
                    New Product With {
                        .ProductName = "Guaraná Fantástica",
                        .UnitPrice = 4.5
                    }
                }
            },
            New Category() With {
                .CategoryName = "Condiments",
                .Description = "Sweet and savory sauces, relishes, spreads, and seasonings",
                .Products = New List(Of Product) From {
                    New Product With {
                        .ProductName = "Aniseed Syrup",
                        .UnitPrice = 10
                    },
                    New Product With {
                        .ProductName = "Chef Anton's Cajun Seasoning",
                        .UnitPrice = 22
                    },
                    New Product With {
                        .ProductName = "Chef Anton's Gumbo Mix",
                        .UnitPrice = 21.35
                    },
                    New Product With {
                        .ProductName = "Grandma's Boysenberry Spread",
                        .UnitPrice = 25
                    }
                }
            },
            New Category() With {
                .CategoryName = "Confections",
                .Description = "Desserts, candies, and sweet breads",
                .Products = New List(Of Product) From {
                    New Product With {
                        .ProductName = "Pavlova",
                        .UnitPrice = 17.45
                    },
                    New Product With {
                        .ProductName = "Teatime Chocolate Biscuits",
                        .UnitPrice = 9.2
                    },
                    New Product With {
                        .ProductName = "Sir Rodney's Marmalade",
                        .UnitPrice = 81
                    },
                    New Product With {
                        .ProductName = "Sir Rodney's Scones",
                        .UnitPrice = 10
                    },
                    New Product With {
                        .ProductName = "NuNuCa Nuß-Nougat-Creme",
                        .UnitPrice = 14
                    }
                }
            }
        }
    End Function
End Module