主题：时间段函数，提示减号错误

老师您好，我在用时间段函数时，标注颜色部分代码为什么总提示 “-” 号错误？

代码：

Select Case e.DataCol.name
    Case "签单日期","运营进度_基础建设_开始日期","运营进度_基础建设_计划完工日期","运营进度_基础建设_实际完工日期"
        e.DataRow("运营进度_基础建设_开始日期") = e.DataRow("签单日期").AddDays(1) '签单日期的第二天作为开始日期
        e.DataRow("运营进度_基础建设_计划完工日期") =   e.DataRow("运营进度_基础建设_开始日期").addDays(e.DataRow("运营进度_基础建设_标准工期"))
        Dim Tsp1 As TimeSpan = e.DataRow("运营进度_基础建设_实际完工日期") - e.DataRow("运营进度_基础建设_开始日期") '实际工期
        Dim Tsp2 As TimeSpan = Date.Today - e.DataRow("运营进度_基础建设_开始日期") '最低工期
        Dim T1 As Integer = Tsp1.Days '实际工期
        Dim T2 As Integer = Tsp2.Days '最低工期
       
        If  e.DataRow.Isnull("运营进度_基础建设_实际完工日期") Then
            e.DataRow("运营进度_基础建设_完工标志") ="未完工"
            e.DataRow("运营进度_基础建设_工期延误天数") = T2 - e.DataRow("运营进度_基础建设_标准工期")
        Else
            e.DataRow("运营进度_基础建设_完工标志") ="已完工"
            e.DataRow("运营进度_基础建设_工期延误天数") = T1 - e.DataRow("运营进度_基础建设_标准工期")
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:错误代码.zip