【发布时间】:2015-07-28 08:02:33
【问题描述】:
如果温度 >=7,我想在 datagridview 单元格上添加背景颜色。
我正在使用下面的代码,它在 7.01 到 9.99 的温度下工作正常,但如果温度为 10.01 及以上,则不显示背景颜色。感谢任何帮助。
Private Sub ReeferDGridview_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles ReeferDGridview.CellFormatting
If e.RowIndex >= 0 AndAlso e.ColumnIndex = Me.ReeferDGridview.Columns("Temperature").Index Then
If e.Value IsNot Nothing Then
Dim LStatus As String = e.Value.ToString
Select Case LStatus
Case Is >= 7
Me.ReeferDGridview.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Maroon
Me.ReeferDGridview.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.White
Case Else
Me.ReeferDGridview.Rows(e.RowIndex).DefaultCellStyle.BackColor = Nothing
Me.ReeferDGridview.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black
End Select
End If
End If
End Sub
【问题讨论】:
-
Switch Option Strict On - 这将引导您解决代码中的错误
-
我已经 Switch Option Strict On 还是同样的问题。
标签: .net vb.net datagridview casting case-statement