各位大神，我们有些项目的监控是以自然年监控的，例如某项培训是2015.3.12做的，那们只要下一次培训是在2016.12.31之前做完就行。这种日期预警要怎么做，也就是实现只要是2015年的项目，到期日期都是2016年12月31日？谢谢。

参考

http://www.foxtable.com/webhelp/scr/2471.htm

DataColChanged事件

Select Case e.DataCol.Name
    Case "生产日期"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else

            Dim d As Date = e.DataRow("生产日期")
            e.DataRow("到期日期") = new Date(d.year+1, 12, 31)
        End If
End Select