Private Sub dgv_Folders_CellClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Folders.CellClick
        If e.RowIndex = bsFolders.Count - 1 Then
            ' untere leere Zeile
            ' hier soll der Inhalt der dgv_Files geleert werden
            updateStatusFields() ' Labels in der Statuszeile updaten
            OpenFile("") ' Inhalt der Textbox leeren
        End If
    End Sub
 
 
    Private Sub dgv_Folders_CellContentClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Folders.CellContentClick
        ' gefüllte Zeile
        If dgv_Folders.SelectedRows.Count = 1 Then
            ' eine gefüllte Zeile
            ersterEintrag()
        Else
            ' mehrere gefüllte Zeilen
            ' hier soll der Inhalt der dgv_Files geleert werden
            OpenFile("") ' Inhalt der Textbox leeren
        End If
        updateStatusFields() ' Labels in der Statuszeile updaten
    End Sub
 
    Private Sub ersterEintrag()
        Dim filename As String
        If bsFolders.Count > 0 And bsFiles.Count > 0 Then
            Dim rowview As DataRowView = bsFiles(0)
            Dim parentrow = rowview.Row.GetParentRow("FoldersFiles")
            Dim subfoldername As String = parentrow("Gruppe")
            filename = IO.Path.Combine(My.Settings.HauptPfad, subfoldername, _
              rowview.Row("Dateiname").ToString & rowview.Row( _
              "Endung").ToString)
        Else
            filename = ""
        End If
        OpenFile(filename) ' Datei in Textbox anzeigen
    End Sub
 
    Private Sub updateStatusFields()
        StatusbarLabel1.Text = "Gruppen: " & _
          dgv_Folders.SelectedRows.Count.ToString & " / " & _
          bsFolders.Count.ToString
        StatusbarLabel2.Text = "Clips: " & _
        dgv_Files.SelectedRows.Count.ToString & " / " & bsFiles.Count.ToString
    End Sub