主题：计划表时间流水

Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "起始日期" OrElse dc.Name = "执行天数" Then
    If dr.IsNull("起始日期") OrElse dr.IsNull("执行天数") Then
        dr("完成日期") = Nothing
    Else
        dr("完成日期") = dr("起始日期").AddDays(dr("执行天数"))
    End If
End If

If dc.name = "完成日期" Then
    Dim drs = e.DataTable.Select("_sortkey >= " & dr("_sortkey"), "_sortkey")
    For i As Integer = 1 To drs.count-1
        drs(i)("起始日期") = drs(i-1)("完成日期")
    Next
End If