类似下面，以不同产品规格和增加一列日期为例
static ls As new List(Of String)
static ls2 As new List(Of String)
static i As Integer = 0
Dim name As String
Dim count As Integer = e.Table.DataTable.compute("count(产品编码)", "产品编码 = '" & 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 = "日期" Then
If e.Row.IsNull(e.Col.Name ) = False Then
name2 = e.Row( e.Col.Name )
If ls2.Contains(name2) = False Then
Dim r As Integer = Rand.Next(0, 255)
Dim g As Integer = Rand.Next(0, 255)
Dim b As Integer = Rand.Next(0, 255)
Dim c As Color = Color.FromARGB(255, r, g, b)
e.Table.DataTable.AddUserStyle(name2, c, Color.black)
ls2.add(name2)
End If
End If
End If
If name2 > "" Then
e.style = name2
Else
e.style = name
End If
加好友 
发短信
Post By：2016/1/25 10:55:00 [显示全部帖子]
