以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  if语句没懂  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135319)
--  作者：mym950115
--  发布时间：2019/5/23 15:05:00
--  if语句没懂

为什么不管输什么，输出的数字都是4？？

哪里出错了？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt
--  作者：y2287958
--  发布时间：2019/5/23 15:13:00
--  
If  e.DataCol.name = "外径"  Then
    If   e.DataRow("外径") > 170  Then
        e.DataRow("切割余量") =  0
    ElseIf e.DataRow("外径") >= 120   Then
        e.DataRow("切割余量") = 6
    ElseIf   e.DataRow("外径")  >= 70  Then
        e.DataRow("切割余量") = 5
    ElseIf   e.DataRow("外径") >= 0 Then
        e.DataRow("切割余量") = 4
    End If
End If
--  作者：ajie5211
--  发布时间：2019/5/23 15:14:00
--  
If  e.DataCol.name = "第一列" Then
  If   e.DataRow("第一列") > 170  Then
         e.DataRow("第二列") =  0
   Else   
      If  170 > e.DataRow("第一列") AndAlso e.DataRow("第一列") >= 120   Then 
                e.DataRow("第二列") = 6
      Else 
             If   120 > e.DataRow("第一列") AndAlso e.DataRow("第一列")  >= 70  Then 
                        e.DataRow("第二列") = 5
             Else   
                   If   70 > e.DataRow("第一列") AndAlso e.DataRow("第一列") >= 0 Then 
                             e.DataRow("第二列") = 4 
                   End If 
             End If
       End If
   End If 
End If
主要变化
170 > e.DataRow("外径") >= 120   变为  170 > e.DataRow("外径") AndAlso e.DataRow("外径")>= 120  
[此贴子已经被作者于2019/5/23 15:16:06编辑过]
--  作者：mym950115
--  发布时间：2019/5/23 15:30:00
--  

那就是，If 判断的时候，如果没有满足第一个条件，自动进入下一级判断的时候，他的一级要求已经必然满足，不需要再写一遍了，是这样的吗？
--  作者：有点甜
--  发布时间：2019/5/23 16:25:00
--  

参考2楼代码

 

http://www.foxtable.com/webhelp/scr/0223.htm