主题：動計算日期設置

http://www.foxtable.com/help/topics/1424.htm

http://www.foxtable.com/help/topics/1337.htm

http://www.foxtable.com/help/topics/1452.htm

If e.DataCol.Name = "起始日期"  Then
    If e.DataRow.IsNull("起始日期") Then
        e.DataRow("到期日期") = Nothing
    Else
        e.DataRow("到期日期") = e.DataRow("起始日期").AddYears(1)
    End If
End If