以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙看一下我这段代码有问题吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57702)
--  作者：rophy0952
--  发布时间：2014/9/29 15:55:00
--  [求助]帮忙看一下我这段代码有问题吗？


If e.DataCol.name = "方阻不良区均值" Then
    e.DataRow("方阻判定") = Nothing
    Dim v1 As Double = e.DataRow("镀区宽度")
    Dim v2 As Double = e.DataRow("方阻不良区均值")
    If v1 < 18 AndAlso v2 > 8 OrElse v1 =< 18 AndAlso v1 >= 52 AndAlso v2 > 4 OrElse v1 > 52 AndAlso v2 > 1 Then
        e.DataRow("方阻判定") = "不合格"
        Exit For
    Else
        e.DataRow("方阻判定") = "合格"
    End If
End If

上面的代码，系统提示错误，说是应为表达式，请问该怎样表达呢？
--  作者：有点甜
--  发布时间：2014/9/29 15:56:00
--  
 If v1 < 18 AndAlso v2 > 8 OrElse v1 <= 18 AndAlso v1 >= 52 AndAlso v2 > 4 OrElse v1 > 52 AndAlso v2 > 1 Then
--  作者：Bin
--  发布时间：2014/9/29 15:56:00
--  
你想实现什么效果
--  作者：rophy0952
--  发布时间：2014/9/29 15:59:00
--  
按照有点甜的修改，现在可以了，谢谢！