yanghua1900363同志有一个程序运行上的错误,于是将一段代码贴了出来寻求答案。我看了一下,造成错误的原因倒不在这段代码中,问题应该出在代码所调用的一个函数上。不过这段代码有点意思,有点意思的原因是比较典型而常见的脱了裤子放屁。代码编写过程中,再熟练的程序员,都可能出现这个问题。因为人的思维是渐进的,不大可能一下把思路全部理清晰。但是不断的修改和完善代码的过程,是个好的习惯,这不仅在于能使代码本身变得简单易读。而且在于可以不断的积累编程的经验,掌握编程的规律。于是乎决定写此例,阐述代码修改完善的基本过程。
一、yanghua1900363同志的原代码:
Dim
intmessage As Integer
Dim rst As New 记录集封装程序
If
rst.OpenRecordset("appraisal", "[销售订单id]=" & Me.销售订单id) Then
If
IsNull(rst.Recordset("appraisalID")) Then
intmessage =
MsgBox("该订单尚未评审,是否进行评审?", vbYesNo)
If intmessage = vbYes Then
Call 订单评审
End If
Else
If Not
IsNull(rst.Recordset("appraisalid")) Then
intmessage =
MsgBox("该订单已被评审,是否再次进行评审?", 4)
If intmessage = vbYes Then
Call 订单评审
End If
End If
End If
End
If
二、分析和改进代码的过程:
这段程序采用了if的多层嵌套结构,但这个嵌套多了些脱裤子放屁的意味,而且是脱几层裤子放屁。首先,IsNull(变量)与Not
IsNull(变量)是互斥的,而if else end
if已经表明了这种互斥关系的程序结构,于是放屁之前就多余穿了一件裤子。于是乎,程序应该简化为:
Dim intmessage As
Integer
Dim rst As New 记录集封装程序
If rst.OpenRecordset("appraisal",
"[销售订单id]=" & Me.销售订单id) Then
If
IsNull(rst.Recordset("appraisalID")) Then
intmessage =
MsgBox("该订单尚未评审,是否进行评审?", vbYesNo)
If intmessage = vbYes Then
Call 订单评审
End If
Else
intmessage
= MsgBox("该订单已被评审,是否再次进行评审?", 4)
If intmessage = vbYes Then
Call 订单评审
End If
End If
End
If
在剩余的代码中,if结构中的语句基本相同,这说明秋裤和内裤穿反了,因此把最里层的秋裤穿到外层来。程序应该简化为:
Dim
intmessage As Integer
Dim rst As New 记录集封装程序
If
rst.OpenRecordset("appraisal", "[销售订单id]=" & Me.销售订单id) Then
If
IsNull(rst.Recordset("appraisalID")) Then
intmessage =
MsgBox("该订单尚未评审,是否进行评审?", vbYesNo)
Else
intmessage =
MsgBox("该订单已被评审,是否再次进行评审?", 4)
End If
If intmessage = vbYes
Then
Call 订单评审
End If
End If
再仔细观察一下,if eles end
if结构体中的语句,只是字符串的不一样,也就是内裤上绣的花不一样而已。于是程序简化为:
Dim str As string
Dim rst
As New 记录集封装程序
If rst.OpenRecordset("appraisal", "[销售订单id]=" & Me.销售订单id)
Then
If IsNull(rst.Recordset("appraisalID")) Then
str =
"该订单尚未评审,是否进行评审?"
Else
str = "该订单已被评审,是否再次进行评审?"
End If
If MsgBox(str, vbYesNo) = vbYes Then
Call 订单评审
End
If
End
If
进一步观察字符串,发现第二句与第一句略有差别,也就是内裤上都绣了花,只是花型有点区别而已。于是程序简化为:
Dim str
As string
Dim rst As New 记录集封装程序
If rst.OpenRecordset("appraisal",
"[销售订单id]=" & Me.销售订单id) Then
str = "该订单尚未评审,是否进行评审?"
If
IsNull(rst.Recordset("appraisalID"))=false Then
str =
replace(replace(str,"尚未","已被"),"是否","是否再次")
End If
If MsgBox(str,
vbYesNo) = vbYes Then
Call 订单评审
End If
End
If
捣腾到此,如果还想进一步简化,就可以写成如下了:
Dim str As string
Dim rst
As New 记录集封装程序
If rst.OpenRecordset("appraisal", "[销售订单id]=" & Me.销售订单id)
Then
str = "该订单尚未评审,是否进行评审?"
If
IsNull(rst.Recordset("appraisalID"))=false Then str =
replace(replace(str,"尚未","已被"),"是否","是否再次")
If MsgBox(str, vbYesNo) =
vbYes Then Call 订单评审
End
If
简化后的语句与简化前相比减少了10句。基本上就是穿一条外裤一条内裤直接放个响屁就可以了。这屁放响了,便也就上下通气,心旷神怡,宠辱皆忘,把酒临风,其喜洋洋则已。