相同的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