Private Sub dgvRealDataBox_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgvRealDataBox.DataBindingComplete
For i As Integer = 0 To Me.dgvRealDataBox.Rows.Count - 1
For j As Integer = 1 To Me.dgvRealDataBox.Columns.Count - 1
If Me.dgvRealDataBox.Rows(i).Cells(j).Value.Equals("报警") Then
Me.dgvRealDataBox.Rows(i).Cells(j).Style.ForeColor = Color.Red
End If
Next
Next
End Sub