以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  时间段函数,提示减号错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148276)

--  作者:段虎成
--  发布时间:2020/4/3 16:52:00
--  时间段函数,提示减号错误

老师您好,我在用时间段函数时,标注颜色部分代码为什么总提示 “-” 号错误?图片点击可在新窗口打开查看

 

代码:

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


--  作者:有点蓝
--  发布时间:2020/4/3 17:00:00
--  
这个原因:http://www.foxtable.com/webhelp/topics/1517.htm

Dim Tsp2 As TimeSpan = Date.Today - cdate(e.DataRow("运营进度_基础建设_开始日期"))

--  作者:段虎成
--  发布时间:2020/4/3 17:14:00
--  
图片点击可在新窗口打开查看