主题：多组重复数据，怎样让不同组的相同数据显示不同的颜色

Dim count As Integer = e.Table.DataTable.compute("count(产品编码)", "Passport = '" & e.Row("产品编码") & "'")
If count > 1 Then
    name= e.Row("产品编码")
    If ls.Contains(name) = False Then
        If i = 0
            e.Table.DataTable.AddUserStyle(name, Color.Red, Color.black)
            i += 1
        ElseIf i = 1 Then
            e.Table.DataTable.AddUserStyle(name, Color.Yellow, Color.black)
            i = 0
        End If
        ls.add(name)
    End If
    'e.style = name
End If
Dim name2 As String
If e.Col.Name = "产品编码" OrElse e.Col.Name = "日期1"  Then
    If e.Row.IsNull(e.Col.Name ) = False Then
        name2 = e.Row( e.Col.Name )      
        if e.Row("日期1" ).Month = 1 then
            e.Table.DataTable.AddUserStyle(name2, Color.Green, Color.black)
            ls2.add(name2)
        End If
    End If
End If