参考:
http://www.foxtable.com/webhelp/topics/1452.htm
If e.DataCol.Name = "校验日期" Then
If e.DataRow.IsNull("校验日期") Then
e.DataRow("校验有效期") = Nothing
e.DataRow("下次校验日期") = Nothing
Else
e.DataRow("校验有效期") = e.DataRow("校验日期").addyears(1).AddDays(-1)
e.DataRow("下次校验日期") = e.DataRow("校验有效期")
End If
End If