Private Sub SetCombos()
 
    For i As Integer = 0 To dt.Columns.Count - 1
       cboColumns.Items.Add(dt.Columns(i).ColumnName)
    Next i
    cboColumns.SelectedIndex = 1 'Index Start-Spalte festlegen
 
    With cboOptions.Items
       .Add("Expand All")
       .Add("Collapse All")
       .Add("Sort Ascending")
       .Add("Sort Descending")
       .Add("Show Row Count")
       .Add("Show Group Name")
    End With
    cboOptions.SelectedIndex = 1 'Starteinstellung des Grouper
 End Sub
 
 Private Sub SetOptions()
     If grp Is Nothing Then Exit Sub 'Einfügen
     With grp
        Select Case cboOptions.SelectedIndex
           Case 0 : .ExpandAll()
           Case 1 : .CollapseAll()
           Case 2 : .GroupSortOrder = SortOrder.Ascending
           Case 3 : .GroupSortOrder = SortOrder.Descending
           Case 4 : .Options.ShowCount = Not .Options.ShowCount
           Case 5 : .Options.ShowGroupName = Not .Options.ShowGroupName
        End Select
     End With
  End Sub