| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 多行代码的生成结果，如果放到elseif的判断语句中啊？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120176) |
| -- 作者：guosheng -- 发布时间：2018/6/8 17:22:00 -- 多行代码的生成结果，如果放到elseif的判断语句中啊？ 阴影部分的多行代码不能放到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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/6/8 20:29:00 -- 没看懂你的逻辑，是不是这个意思？ 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 |
| -- 作者：guosheng -- 发布时间：2018/6/8 21:01:00 -- 以上代码都是确定按钮的判断和赋值，有好多if和elseif的判断，我想如果不符合判断条件就不执行确定按钮的click事件。 我加个return或许能达到效果，我回头测试一下吧。 if …… elseif… … else 隐影代码 If drr2("计划完成时间")>drr4("计划完成时间") Then return
[此贴子已经被作者于2018/6/8 21:02:55编辑过]
|