DataTables("库存表").AddUserStyle("浅绿", Color.SpringGreen, Color.Black)
DataTables("库存表").AddUserStyle("黄色", Color.Yellow, Color.Black)
DataTables("库存表").AddUserStyle("橙色", Color.Orange, Color.Black)
DataTables("库存表").AddUserStyle("红色", Color.Red, Color.Black)
If e.Col.Name = "库存数量" AndAlso e.Row.IsNull("库存数量") = False
Dim d As Date = e.Row("日期")
If d.AddMonths(12) < Date.Today
e.Style = "红色"
ElseIf d.AddMonths(6) < Date.Today
e.Style = "橙色"
ElseIf d.AddMonths(3) < Date.Today
e.Style = "黄色"
Else
e.Style = "浅绿"
End If
End If
加好友 
发短信
Post By：2018/11/3 14:19:00 [只看该作者]
