【新手入门】之七：嵌套与并列——再谈If流程问题

roych · 发表于 2013-3-17 18:28:30

早在一年前，我便写了一系列VBA扫盲贴，其中就有If分支语句。只是当时写得较为简单，大家的体会也没那么深刻。而在近日，ycxchen重新提出这个问题，我觉得，如果进一步细说的话，可能大家会更加清楚如何规范一个流程【详见判断语句】。
为了方便代码的阅读，我把源代码加以缩进【建议大家在写代码时也这样做，方便阅读和调试】。先附上代码：

分支语句	嵌套语句
If IsNull([姓名]) Then MsgBox "请输入姓名" Exit Sub End If If IsNull([出生日期]) Then MsgBox "请输入出生日期" Exit Sub End If '…………余下几个分支语句省去复制代码	If IsNull([姓名]) Then MsgBox "请输入姓名" '第一层 Else '第二层 If IsNull([出生日期]) Then MsgBox "请输入出生日期" Else '…………余几个嵌套省去 End If End If 复制代码

   代码优劣就不说了，不在本文讨论范围内。我们先来比较这两段代码的不同之处。现在开始讨论分支语句和嵌套语句的区别。
   分支语句中，显然第一步会先判断有没有填入姓名，如果没填就弹出提示然后退出，接下来执行第二个分支语句，看看有没有填出生日期，再判断第三个……直至所有语句成立了才会跳到GoToReCord语句。由于分支语句是并行关系，因此只要有一个没填完，就会跳回来继续提醒直至全部为真。

   接下来，我们来看嵌套语句。显然第一步是一样的，先判断有没有填入姓名，如果没填，那么就弹出对话框，接下来判断有没有填出生日期，如果没有填继续弹出对话框。然后判断第三个……是吗？会判断第三个吗？我们回过头来看点别的东西：

表中只有姓名设置为“必填字段”，其它是没有的。
表中姓名、出生日期等字段没有设置默认值。

   这两个细节看起来微不足道，但对流程来说却极有意思。假定设置了必填字段，显然不管流程怎么写，问题应该都不太大。反正是必填的，不填就无法保存，不提示顶多不够人人性化而已，但对结果并无太大影响，不是么？设置默认值的话，也是同样原因，设置了，用户不输入那么默认就好了，反正也算是填了。

   然而没有这两点，那这段程序就有问题了：

   前面说了判断姓名是没问题的，判断出生日期，显然默认情况下是空值，也是会弹出对话框的。但是，也正因为由于这一步成立，因此Else部分就不会再进行判断了。这么一来，这段程序自然就只判断到出生日期为空这部分。而又因为第1点，保存记录当然是没问题的。这么一来，这段程序是不会判断第3层和之后的语句，而直接跳转到GotoRecord。换句话说，第三层以后的语句完全是“防君子不防小人”的。

   流程到此结束。可能大家有这样的疑惑：

能不能嵌套？
能不能简化？

zhixingju · 发表于 2016-5-13 21:59:15

谢谢

大白 · 发表于 2013-3-26 15:01:15

学习学习

ycxchen · 发表于 2013-3-21 08:55:18

衷心感谢roych版主的悉心指教！明白！

roych · 发表于 2013-3-20 21:05:15

ycxchen 发表于 2013-3-20 11:08
加入了“出生日期.SetFocus”语句，情况一样，什么原因呢？

这加不加setFocus没关系的。我简化下代码：
If 条件1 Then
  If 条件2 Then
   If 条件3 Then
      执行语句1
   end if
end if
end if
如果要执行语句1，需要满足什么样的条件？显然是条件1、2和3都需要成立才会执行，否则就直接跳出外层语句了。
换句话说，嵌套语句需要全部都成立了，才会执行到最内层的语句（所有语句类似于And逻辑运算）。
同样地，如果非要每个Else都弹出提示，也是需要每个条件都不成立。输入姓名后，外层If不成立，进入第二层If语句。第二层语句成立【IsNull[出生日期]成立】，因此不执行Else部分。——这也就是说，第三层嵌套不再执行。但是，如果把出生日期改为必填字段，那么因为无法保存的问题，自然会因为产生错误而暂时停留在这一层。

ycxchen · 发表于 2013-3-20 11:08:31

本帖最后由 ycxchen 于 2013-3-20 11:12 编辑

加入了“出生日期.SetFocus”语句，情况一样，什么原因呢？

roych · 发表于 2013-3-19 19:51:07

ycxchen 发表于 2013-3-19 09:20
版主，我的理解的与你的一样，对有一定VBA基础的人来说，这是很容易理解的。但是，你试过没有，条件不成 ...

按确定后就表示If语句已经执行完毕了呀【】。当然就直接跳到GotoRecord部分了。
你只有输入了出生日期，才是Else部分做的事情，即进行工作日期的判断。

ljp518 · 发表于 2013-3-19 13:11:38

{:soso_e163:}

ycxchen · 发表于 2013-3-19 12:06:18

是不是与msgbox函数“确定”按钮获得焦点事件有关？

ycxchen · 发表于 2013-3-19 09:20:54

本帖最后由 ycxchen 于 2013-3-19 09:33 编辑

roych 发表于 2013-3-18 19:32
If语句是这样执行的：
If 条件成立 Then
执行语句1

版主，我的理解的与你的一样，对有一定VBA基础的人来说，这是很容易理解的。但是，你试过没有，条件不成立也会执行里面的嵌套语句，例如，当出生日期为空，出现提示，按确定后，程序并不是再进入判断参加工作日期是否为空值的语句，而是直接运行到DoCmd.GoToRecord , , acNewRec语句，就是说程序不执行If部分已经到GotoRecord了，为什么呢？

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【新手入门】之七：嵌套与并列——再谈If流程问题

本帖子中包含更多资源

本帖被以下淘专辑推荐:

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)