| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]for each 循环语句 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60446) |
| -- 作者：xxk02 -- 发布时间：2014/11/25 10:18:00 -- [求助]for each 循环语句 For Each dr As DataRow In drs \'若子项未审核,则禁止下发 If dr("审核") = True Then Continue For ElseIf dr("审核") = False MessageBox.show("编号为" & dr("任务编号") & "的子任务未审核,该会议纪要不能下发.请退出!", "提示") .Current.DataRow("编辑者") = Nothing \'解锁 .Current.DataRow.save() Exit For Return End If Next 代码（略）…… 上述代码中，若dr("审核") = False就跳出循环，不再往下进行。Return应放在什么地方？
|
| -- 作者：有点甜 -- 发布时间：2014/11/25 10:19:00 -- 放在 Exit For 的上面 |
| -- 作者：Bin -- 发布时间：2014/11/25 10:19:00 -- For Each dr As DataRow In drs \'若子项未审核,则禁止下发 If dr("审核") = True Then Continue For ElseIf dr("审核") = False Exit For MessageBox.show("编号为" & dr("任务编号") & "的子任务未审核,该会议纪要不能下发.请退出!", "提示") .Current.DataRow("编辑者") = Nothing \'解锁 .Current.DataRow.save() End If Next |
| -- 作者：Bin -- 发布时间：2014/11/25 10:20:00 -- 连后面的都不执行,不单单是退出循环的话 For Each dr As DataRow In drs \'若子项未审核,则禁止下发 If dr("审核") = True Then Continue For ElseIf dr("审核") = False
MessageBox.show("编号为" & dr("任务编号") & "的子任务未审核,该会议纪要不能下发.请退出!", "提示") .Current.DataRow("编辑者") = Nothing \'解锁 .Current.DataRow.save() Return End If Next |
| -- 作者：xxk02 -- 发布时间：2014/11/25 10:23:00 -- 谢谢！ |