参考:http://www.foxtable.com/webhelp/topics/1452.htm
If e.DataCol.Name = "任务下达时间" OrElse e.DataCol.Name = "完成时间" Then
If e.DataRow.IsNull("任务下达时间") OrElse e.DataRow.IsNull("完成时间") Then
e.DataRow("完成日期") = Nothing
Else
dim s as string = e.DataRow("完成时间")
if s.endswith("年")
e.DataRow("完成日期") = e.DataRow("起始日期").Addyears(cint(s.replace("年","")))
elseif s.endswith("月")
e.DataRow("完成日期") = e.DataRow("起始日期").Addmonths(cint(s.replace("月","")))elseif s.endswith("天")
e.DataRow("完成日期") = e.DataRow("起始日期").Adddays(cint(s.replace("天","")))