我初学,给你做了个代码
If e.DataCol.Name = "开始时间" Then
If e.NewValue > Date.Today
e.DataRow("状态") = "未开始"
End If
If e.NewValue < = Date.Today AndAlso e.NewValue > Date.Today.AddDays(-365)
e.DataRow("状态") = "正在进行"
End If
If e.NewValue < = Date.Today.AddDays(-365)
e.DataRow("状态") = "已经结束"
End If
End If

此主题相关图片如下:02.jpg

代码加载datachanged中即可!