阴影部分的多行代码不能放到if之前。
if***
***
elseif
******
Dim drr2 As Row = Tables("计划执行情况表").current
Dim drff2 As DataRow=DataTables("项目基准时间表").find("项目编号='"& drr2("项目编号") &"' And 基准名称='"& drr2("完成时间参考基准") &"'")
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("一级编号") &"'")
ElseIf drr2("计划完成时间")>drr4("计划完成时间")
messagebox.show("二级节点的计划完成日期不能迟于一级节点的计划完成日期:" & drr4("计划完成时间"))
[此贴子已经被作者于2018/6/8 17:25:39编辑过]
加好友 
发短信
Post By：2018/6/8 17:22:00 [只看该作者]
