myDS.Relations.Add("Details", myDS.Tables(0).Columns(0), myDS.Tables( _
     1).Columns(1))
 Me.DataGrid1.SetDataBinding(myDS, "ArtikelTab")

Private Sub myDGTableStyleDisplayArtikelTable(ByVal myGrid As DataGrid, ByVal _
  myTable As DataTable)
        Dim ts1 As New DataGridTableStyle
        Dim dc1 As New DataGridTextBoxColumn
        Dim dc2 As New DataGridTextBoxColumn
        Dim dc3 As New DataGridTextBoxColumn
 
        With ts1
            .MappingName = myTable.TableName
            .AlternatingBackColor = System.Drawing.Color.WhiteSmoke
            .BackColor = System.Drawing.Color.White
            .ForeColor = System.Drawing.Color.DarkSlateBlue
            .GridLineColor = System.Drawing.Color.MediumSlateBlue
            .HeaderBackColor = System.Drawing.Color.Lavender
            .HeaderForeColor = System.Drawing.Color.Black
            .RowHeaderWidth = 10
        End With
        dc1.MappingName = "BestandID"
        dc1.HeaderText = "ID-Bestand"
        dc1.Width = 85
        dc1.Alignment = HorizontalAlignment.Center
        dc1.ReadOnly = True
 
        dc2.MappingName = "ArtikelID"
        dc2.HeaderText = "ID-Artikel"
        dc2.Width = 150
        dc2.Alignment = HorizontalAlignment.Center
        dc2.ReadOnly = True
 
        dc3.MappingName = "Datum"
        dc3.HeaderText = "Datum"
        dc3.Width = 300
        dc3.Alignment = HorizontalAlignment.Center
        dc3.ReadOnly = True
 
        '//Hinzufügen der einzelnen Objekte von links nach rechts
        With ts1.GridColumnStyles
            .Add(dc1)
            .Add(dc2)
            .Add(dc3)
 
        End With
        myGrid.TableStyles.Clear()
        myGrid.TableStyles.Add(ts1)
    End Sub