yanghua1900363同志有一个程序运行上的错误，于是将一段代码贴了出来寻求答案。我看了一下，造成错误的原因倒不在这段代码中，问题应该出在代码所调用的一个函数上。不过这段代码有点意思，有点意思的原因是比较典型而常见的脱了裤子放屁。代码编写过程中，再熟练的程序员，都可能出现这个问题。因为人的思维是渐进的，不大可能一下把思路全部理清晰。但是不断的修改和完善代码的过程，是个好的习惯，这不仅在于能使代码本身变得简单易读。而且在于可以不断的积累编程的经验，掌握编程的规律。于是乎决定写此例，阐述代码修改完善的基本过程。一、yanghua1900363同志的原代码：Dim intmessage As IntegerDim 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 IfEnd If二、分析和改进代码的过程：　　这段程序采用了if的多层嵌套结构，但这个嵌套多了些脱裤子放屁的意味，而且是脱几层裤子放屁。首先，IsNull(变量)与Not IsNull(变量)是互斥的，而if else end if已经表明了这种互斥关系的程序结构，于是放屁之前就多余穿了一件裤子。于是乎，程序应该简化为：Dim intmessage As IntegerDim 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 IfEnd If　　在剩余的代码中，if结构中的语句基本相同，这说明秋裤和内裤穿反了，因此把最里层的秋裤穿到外层来。程序应该简化为：Dim intmessage As IntegerDim 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 IfEnd If　　再仔细观察一下，if eles end if结构体中的语句，只是字符串的不一样，也就是内裤上绣的花不一样而已。于是程序简化为：Dim str As stringDim 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 IfEnd If　　进一步观察字符串，发现第二句与第一句略有差别，也就是内裤上都绣了花，只是花型有点区别而已。于是程序简化为：Dim str As stringDim 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 IfEnd If　　捣腾到此，如果还想进一步简化，就可以写成如下了：　　Dim str As stringDim 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　　简化后的语句与简化前相比减少了１０句。基本上就是穿一条外裤一条内裤直接放个响屁就可以了。这屁放响了，便也就上下通气，心旷神怡，宠辱皆忘，把酒临风，其喜洋洋则已。