DataColChanged事件:
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
Case "进货时间","销售时间"
If dr.IsNull("进货时间") OrElse dr.IsNull("销售时间") Then
dr("状态") = Nothing
ElseIf Date.Today < dr("进货时间") Then
dr("状态") = "尚未开始销售"
ElseIf Date.Today > dr("销售时间") Then
dr("状态") = "销售完毕"
Else
dr("状态") = "销售中"
End If
End Select