主题：[求助]自然年的计算

参考

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