Private Sub InitBerechtigungenliste()
        DataGrid1.TableStyles.Clear()
        DataGrid1.CaptionText = "BERECHTIGUNGEN"
 
        Dim tStyle As New DataGridTableStyle
        tStyle.MappingName = "Dataset2"
        tStyle.AllowSorting = True
        tStyle.ReadOnly = True
 
        Dim Spalte As DataGridTextBoxColumn
        Spalte = New DataGridTextBoxColumn
        Spalte.MappingName = "Bezeichnung"
        Spalte.HeaderText = "Bezeichnung"
        Spalte.Width = 200
 
        tStyle.GridColumnStyles.Add(Spalte)
 
        Dim Spalte2 As DataGridBoolColumn
        Spalte2 = New DataGridBoolColumn
        Spalte2.MappingName = "ID"
        Spalte2.HeaderText = "Nein"
        Spalte2.Width = 50
 
        tStyle.GridColumnStyles.Add(Spalte2)
 
        Dim Spalte3 As DataGridBoolColumn
        Spalte3 = New DataGridBoolColumn
        Spalte3.MappingName = "Art"
        Spalte3.HeaderText = "Löschen"
        Spalte3.Width = 50
 
        tStyle.GridColumnStyles.Add(Spalte3)
 
        Dim Spalte4 As DataGridBoolColumn
        Spalte4 = New DataGridBoolColumn
        Spalte4.MappingName = "s_GUID"
        Spalte4.HeaderText = "Vollzugriff"
        Spalte4.Width = 50
 
        tStyle.GridColumnStyles.Add(Spalte4)
 
        DataGrid1.TableStyles.Add(tStyle)
End Sub