以文本方式查看主题 -  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=126579)

--  作者：有点甜 --  发布时间：2018/10/24 18:47:00 --   Select Case e.DataCol.Name     Case "实际开始日期","计划数量","任务量"         Dim dr As DataRow = e.DataRow         If dr.IsNull("实际开始日期") OrElse dr.IsNull("计划数量")OrElse dr.IsNull("任务量")  Then             dr("实际完成日期") = Nothing         Else             dr("实际完成日期") = cdate(dr("实际开始日期")).adddays(dr("计划数量") / dr("任务量"))         End If End Select