private void InitData() {
    ArrayList records = new ArrayList();
    records.Add(new Record("first"));
    records.Add(new Record("second"));
    records.Add(new Record("third"));

    gridControl1.DataSource = records;
}

Private Sub InitData()
    Dim records As New ArrayList
    records.Add(New Record("first"))
    records.Add(New Record("second"))
    records.Add(New Record("third"))

    gridControl1.DataSource = records
End Sub

private object[,] relations = { 
    {"Products", "Customers", "Shippers"},
    { null, null, null}, 
    {"Employees", null, null}};

Private relations As Object(,) = {{ _
    "Products", "Customers", "Shippers"}, { _
    Nothing, Nothing, Nothing}, { _
    "Employees", Nothing, Nothing}}

using DevExpress.XtraGrid.Views.Grid

//Specifies the maximum number of details
private void gridView1_MasterRowGetRelationCount(object sender, 
MasterRowGetRelationCountEventArgs e) {
    e.RelationCount = 3;            
}

//Specifies whether a specific detail contains data
//The detail should not be displayed if the corresponding relations element is null
private void gridView1_MasterRowEmpty(object sender, MasterRowEmptyEventArgs e) {
    e.IsEmpty = IsRelationEmpty(e.RowHandle, e.RelationIndex);
}

bool IsRelationEmpty(int rowHandle, int relationIndex) {
    return rowHandle == GridControl.InvalidRowHandle || relations[rowHandle, 
        relationIndex] == null;
}

    
//Get child data for specific relations
//The ChildRecordsProducts, ChildRecordsCustomers, ChildRecordsShippers and Records 
//are custom classes derived from ArrayList
private void gridView1_MasterRowGetChildList(object sender, 
    MasterRowGetChildListEventArgs e) {
    if(IsRelationEmpty(e.RowHandle, e.RelationIndex)) return;
    string s = relations[e.RowHandle, e.RelationIndex].ToString();
    switch(s) {
        case "Products":
            e.ChildList = new ChildRecordsProducts();
            break;
        case "Customers":
            e.ChildList = new ChildRecordsCustomers();
            break;
        case "Shippers":
            e.ChildList = new ChildRecordsShippers();
            break;
        case "Employees":
            e.ChildList = new Records();
            break;
    }
}

//Provide names for relations
//The names are used to determine pattern Views for representing detail data
private void gridView1_MasterRowGetRelationName(object sender, 
    MasterRowGetRelationNameEventArgs e) {
   if(IsRelationEmpty(e.RowHandle, e.RelationIndex)) e.RelationName = "";
      else e.RelationName = relations[e.RowHandle, e.RelationIndex].ToString();
}

Imports DevExpress.XtraGrid.Views.Grid

'Specifies the maximum number of details
Private Sub gridView1_MasterRowGetRelationCount(ByVal sender As Object, _
ByVal e As .MasterRowGetRelationCountEventArgs) _
Handles gridView1.MasterRowGetRelationCount
    e.RelationCount = 3
End Sub

'Specifies whether a specific detail contains data
'The detail should not be displayed if the corresponding relations element is null
Private Sub gridView1_MasterRowEmpty(ByVal sender As Object, _
ByVal e As MasterRowEmptyEventArgs) _
Handles gridView1.MasterRowEmpty
    e.IsEmpty = IsRelationEmpty(e.RowHandle, e.RelationIndex)
End Sub

Function IsRelationEmpty(ByVal rowHandle As Integer, ByVal relationIndex As Integer) As Boolean
    If (rowHandle = DevExpress.XtraGrid.GridControl.InvalidRowHandle) Then Return True
    Return relations(rowHandle, relationIndex) Is Nothing
End Function

'Get child data for specific relations
'The ChildRecordsProducts, ChildRecordsCustomers, ChildRecordsShippers and Records 
'are custom classes derived from ArrayList
Private Sub gridView1_MasterRowGetChildList(ByVal sender As Object, _
ByVal e As MasterRowGetChildListEventArgs) _
Handles gridView1.MasterRowGetChildList
    If IsRelationEmpty(e.RowHandle, e.RelationIndex) Then Return
    Dim s As String = relations(e.RowHandle, e.RelationIndex).ToString()
    Select Case s
        Case "Products"
            e.ChildList = New ChildRecordsProducts
        Case "Customers"
            e.ChildList = New ChildRecordsCustomers
        Case "Shippers"
            e.ChildList = New ChildRecordsShippers
        Case "Employees"
            e.ChildList = New Records
    End Select
End Sub

'Provide names for relations
'The names are used to determine pattern Views for representing detail data
Private Sub gridView1_MasterRowGetRelationName(ByVal sender As Object, _
ByVal e As MasterRowGetRelationNameEventArgs) _
Handles gridView1.MasterRowGetRelationName
   If IsRelationEmpty(e.RowHandle, e.RelationIndex) Then
      e.RelationName = ""
   Else
      e.RelationName = relations(e.RowHandle, e.RelationIndex).ToString()
   End If
End Sub