【新手入门】之七：嵌套与并列——再谈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。换句话说，第三层以后的语句完全是“防君子不防小人”的。

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

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

huangli0356 · 发表于 2013-3-18 10:05:36

沙发..帮主辛苦了..

tmtony · 发表于 2013-3-18 11:25:53

谢谢分享

ycxchen · 发表于 2013-3-18 11:44:57

本帖最后由 ycxchen 于 2013-3-18 18:01 编辑

有劳版主！我觉得， DoCmd.GoToRecord , , acNewRec语句在end if语句后面的，但程序判断到出生日期为空这部分就不会判断第3层和之后的语句，为何直接跳转到GotoRecord，这是为什么呢？

roych · 发表于 2013-3-18 19:32:26

本帖最后由 roych 于 2013-3-18 19:33 编辑

ycxchen 发表于 2013-3-18 11:44
有劳版主！我觉得， DoCmd.GoToRecord , , acNewRec语句在end if语句后面的，但程序判断到出生日期为空这部 ...

If语句是这样执行的：
If 条件成立 Then
执行语句1
Else
执行语句2
End If
条件成立是不会执行语句2的。
这样一来，我们再回头看看右边那段代码。从顺序上，肯定是先执行If部分，然后才到GotoRecord。
第一个If显然条件成立【姓名为空】，因此弹出对话框，并进入嵌套语句【即判断出生日期】。而对于出生日期，条件显然也是成立的【出生日期为空】，这时候显然就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了，为什么呢？

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

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

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

{:soso_e163:}

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

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

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

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

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

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

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

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

主题相关群

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

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

本帖子中包含更多资源

本帖被以下淘专辑推荐:

本帖子中包含更多资源

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