主题：[求助]紧前工作结束日期等于紧后工作开始日期

紧前工作结束日期等于紧后工作开始日期，也就是下一行的紧前工作开始日期等于上一行计划完成日期

下面代码怎么修改 求助，谢谢

Select Case e.DataCol.Name
    Case "项目子任务_计划完成日期","紧前工作完成日期"
Dim drf As DataRow = e.DataRow
If drf.IsNull("项目子任务_计划完成日期") = False Then

        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
            Dim Val1 As Double = e.DataTable.Compute("Sum(项目子任务_计划完成日期)","[_SortKey] <= " & dr("_SortKey"))
            Dim Val2 As Double = e.DataTable.Compute("Sum(紧前工作完成日期)","[_SortKey] <= " & dr("_SortKey"))
            Val2 =  Val1
        Next

End If
End Select

此主题相关图片如下：图示.png

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

点击浏览该文件:紧前工作结束日期等于紧后工作开始日期.foxdb