我正在尝试根据日期列按以下顺序标记网格中的行
- 从今天起 2 天或以上时,则为 RED
- 当 1 天大时,然后是黄色
- 当 0 天大时为绿色
- 当日期在未来时,则为蓝色
我有以下工作正常,除了未来的日期是绿色而不是蓝色。
Dim myDate As DateTime = CType(grdSummaryView.GetRowCellValue(e.RowHandle, "myDate"), DateTime)
Select Case Now.Subtract(myDate).Days
'2 or more days old then RED FLAG
Case Is >= 2
e.Value = ImageCollection2.Images(3)
Case 1
'1 day old then YELLOW FLAG
e.Value = ImageCollection2.Images(1)
Case 0
'Current day then GREEN FLAG
e.Value = ImageCollection2.Images(0)
Case Else
e.Value = ImageCollection2.Images(4)
End Select