参考
http://www.foxtable.com/webhelp/scr/1452.htm
DataColChanged事件
Dim d As Date = e.DataRow("开始时间")
If d = nothing Then
e.DataRow("到达时间") = Nothing
Else
e.DataRow("到达时间") = d.AddYears(20).AddDays(-1)
End If