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

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

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

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

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

不要一个空表就发上来

真的有点难：

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

点击浏览该文件:管理项目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