主题：判断公式请教

我写了三个，其他自己加进去：

 

iif([标准] = 1 And [实测] = 2,'不合格',
iif([标准] < 1 And [实测] = 0.5,'合格',
iif([标准] > 1 And [实测] = 2, '合格',Null
)))

 

每行都是逗号结尾，倒数第二行的逗号后面要有NULL，前面有多少个iif，最后一行就有多少个右括号。

 

记得标准列好实测列改为双精度小数。

首先谢谢狐爸爸,我的意思是标准列会出现 条件1〈,  条件2  〉,  条件3  ≥ , 条件4   ≤,   条件5  n-n ,   条件6   n   当实测列符合标准列的要求时就等于合格,相反不符合要求的时候就是不合格,我想要这样的一个结果,请狐爸爸帮我一下谢谢您了.

把标准列拆成两数值列，一列最大值，一列最小值。拿实测列与最大最小列比对结果

标准列是固定列不能分

请重做例子，输入一些数据，包括标准、实测，以及结果，方便他人理解。

不要一个空表就发上来

烦请狐狸爸爸看一下,谢谢了, 条件1〈,  条件2  〉,  条件3  ≥ , 条件4   ≤,   条件5  n-n ,   条件6   n   一共6个条件,满足条件为合格,不满足为不合格,谢谢了.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

真的有点难：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 

Select Case e.DataCol.name
    Case "标准","实测"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("标准") OrElse dr.IsNull("实测") Then
            dr("结果") = Nothing
        Else
            Dim exp As String
            Dim v1 As String = dr("标准")
            Dim v2 As String = dr("实测")
            If IsNumeric(v1) Then
                exp = v1 & "= " & v2
            ElseIf v1.IndexOf("-") > 0 Then
                exp = v1.Replace("-"," <= " & v2 & " And " & v2 & " <= ")
            Else
                Select Case v1.SubString(0,1)
                    Case "<",">"
                        exp = v2 & v1
                    Case "≥"
                        exp = v2 & ">=" & v1.SubString(1)
                    Case "≤"
                        exp = v2 & "<=" & v1.SubString(1)
                End Select
            End If
            dr("结果") = iif(eval(exp),"合格","不合格")
        End If
End Select

谢谢狐狸爸爸