没看懂你的逻辑，是不是这个意思？
Dim drr2 As Row = Tables("计划执行情况表").current
If drr2 IsNot Nothing Then
Dim drff2 As DataRow=DataTables("项目基准时间表").find("项目编号='"& drr2("项目编号") & "' And 基准名称='" & drr2("完成时间参考基准") & "'")
If drff2 IsNot Nothing Then
If drr2("前置基准的天数")>0
drr2("计划完成时间")=drff2("计划完成日期").adddays("-" & drr2("前置基准的天数"))
Else
drr2("计划完成时间")=drff2("计划完成日期").adddays(math.abs(drr2("前置基准的天数")))
End If
Dim drr4 As DataRow = DataTables("计划执行情况表").find("项目编号='"& drr2("项目编号") & "' And 任务编号='" & drr2("一级编号") & "'")
If drr4 IsNot Nothing Then
If drr2("计划完成时间")>drr4("计划完成时间") Then
End If
End If
End If
End If
加好友 
发短信
Post By：2018/6/8 20:29:00 [显示全部帖子]
