Private Sub Init()
   '....
   dcWinApp = dtWinApp.Columns.Add("Gruppe", GetType(String))
   dcWinApp.Unique = True
   dtWinApp.Columns.Add("Pfad", GetType(String))
   dtWinApp.Columns.Add("SumUser", GetType(String))
   dtWinApp.Columns.Add("VerrUser", GetType(String))
   dtWinApp.Columns.Add("Size", GetType(String))
 
   Dim bsWinApp As New BindingSource(dtWinApp, Nothing)
 
   dgvWinApp.DataSource = bsWinApp
   '...
End Sub
 
Private Sub Main()
   'datatable füllen
   '...
   dtFiles.Rows.Add(dr)
   '...
End Sub
 
Private Sub GridViewsAufbereiten()
   dgvWinApp.Update()
   With dgvWinApp
      .Columns(0).Width = 50
      .Columns(1).Width = 360
      .Columns(2).Width = 53
      .Columns(3).Width = 50
      .Columns(4).Width = 25
      .Columns(0).Visible = False
      .Columns(3).Visible = False
      .Columns(4).Visible = False
   End With
 
   For i As Integer = 0 To dgvWinApp.RowCount - 1
      If dgvWinApp.Rows(i).Cells(3).Value = True Then
         With dgvWinApp
            For o As Integer = 0 To 4
                .Rows(i).Cells(o).Style.BackColor = Color.LightGreen
            Next
         End With
      Else
         With dgvWinApp
            For o As Integer = 0 To 4
               .Rows(i).Cells(o).Style.BackColor = Color.DarkOrange
            Next
         End With
      End If
   Next
End Sub