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

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

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

程兴刚

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

加好友

发短信

等级：超级版主帖子：7253 积分：40736 威望：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

程兴刚

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

加好友

发短信

等级：超级版主帖子：7253 积分：40736 威望：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

下一主题 >> << 上一主题

主题：多个条件判断结果[求助]