e.Table.DataTable.AddUserStyle("红色", Color.Red, Color.Black) If e.Col.Name = "第一列" Then Dim fdr As DataRow = e.Table.DataTable.Find("第一列 = '" & e.Row(e.Col.Name) & "' and _Identify <> " & e.Row("_Identify")) If fdr IsNot Nothing Then e.Style = "红色" End If End If