多个条件判断结果[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多个条件判断结果[求助]

共有3251人关注过本帖树形打印复制链接主题：多个条件判断结果[求助]

Bin

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/14 17:19:00 [只看该作者]

if (e.datarow("年数") > 5 andalso e.datarow("集中") > 120 andalso e.datarow("合计") > 240) orelse (e.datarow("年数") > 4 andalso e.datarow("集中") > 100 andalso e.datarow("合计") > 200) orelse (e.datarow("年数") > 3 andalso e.datarow("集中") > 80 andalso e.datarow("合计") > 160) orelse (e.datarow("年数") > 2 andalso e.datarow("集中") > 60 andalso e.datarow("合计") > 120) then

e.datarow("审核情况")="及格"

else

e.datarow("审核情况")="不及格"

end if

程兴刚

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7235 积分：40574 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2014/6/14 17:26:00 [只看该作者]

If e.DataCol.name = "年份"
    If e.DataRow.isnull("年份") = False
        Dim dr As DataRow = e.DataRow
        If dr("年份") < 6
            Dim s As String = "60,80,100,120"
            Dim n As Integer = Math.Max(0,dr("年份")-2)
            If dr("集中") >= val(s.split(",")(n)) And dr("合计") >= val(s.split(",")(n))*2
                dr("审核情况") = "合格"
            Else
                dr("审核情况") = "合格"
            End If
        Else
            dr("审核情况") = Nothing
        End If
    End If
End If

程兴刚

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7235 积分：40574 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2014/6/14 17:54:00 [只看该作者]

直接用数组来解决稍微简洁一点：

If e.DataCol.name = "年份"
    If e.DataRow.isnull("年份") = False
        Dim dr As DataRow = e.DataRow
        If dr("年份") < 6
            Dim Values() As Integer = {60,80,100,120}

            Dim n As Integer = Math.Max(0,dr("年份")-2)
            If dr("集中") >= Values(n) And dr("合计") >= Values(n)*2
                dr("审核情况") = "合格"
            Else
                dr("审核情况") = "合格"
            End If
        Else
            dr("审核情况") = Nothing
        End If
    End If
End If