MS14032016

app/DD-Record-Organiser/frmCockpit.vb

@@ -13,6 +13,8 @@
             captiongrbx = CURRENT_TASKS_GENERAL.Rows.Count & " Tasks - Team/Group"
             grbxTasksGeneral.Text = captiongrbx
             Dim i As Integer
+            Dim _col As Color = Color.White
+
 
             For Each row As DataRow In CURRENT_TASKS_GENERAL.Rows
                 'Dim i = row.Item(0)
@@ -23,12 +25,17 @@
                     '.SubItems.Add(row.Item(1))
                     '.SubItems.Add("Dritte Spalte")
                     .Tag = row.Item(0)
+                    .BackColor = _col
                 End With
                 i += 1
-              
-                    If i Mod 2 = 0 Then
-                        ListViewTasksGeneral.Items(i).BackColor = Color.Lavender
-                    End If
+                '   ListViewTasksGeneral.Items(i).BackColor = _col
+                If _col = Color.White Then
+                    _col = Color.Lavender
+                Else
+                    _col = Color.White
+                End If
+                
+                
             Next
         Catch ex As Exception