实际完成日期怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考：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("天","")))

end if

End If
End If

主题：实际完成日期怎么写