相同类别显示相同的颜色

相同的SheetName 只要ISERROR为0就为红色!一个简单的方法(VB

            For Dt_4 As Integer = 0 To DataGrid4.Items.Count - 1 '循环表，

                For dt4_f As Integer = 1 To DataGrid4.Items.Count - 1

                    If (DataGrid4.Items(Dt_4).Cells(0).Text = DataGrid4.Items(dt4_f).Cells(0).Text) Then

                        If (DataGrid4.Items(Dt_4).Cells(5).Text = "0" Or DataGrid4.Items(dt4_f).Cells(5).Text = "0") Then
                            DataGrid4.Items(Dt_4).BackColor = Color.Red
                            DataGrid4.Items(dt4_f).BackColor = Color.Red
                        End If
                    End If
                Next
            Next

        End If