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

如下图，在表格中有“项目名称、标准要求、结果、判定”

1. 希望在结果填入之后，能根据标准要求的数值范围进行判定，若不是数值则不进行判定；

2. 数值范围有大于等于、小于等于、小于、大于、或一定的数值区间，能根据结果进行判定；

请问是直接可以处理，还是要分根据不同条件来填写在DataColChanged 增加代码来分别判定？

此主题相关图片如下：23.png

[此贴子已经被作者于2016/4/8 9:09:35编辑过]

汗

下载信息 [文件大小：下载次数： ]
点击浏览该文件:表达式判断.table

此主题相关图片如下：1.png

Select Case e.DataCol.name

Case "标准", "结果"

Dim str As String = e.DataRow("标准")

If str Is Nothing OrElse e.DataRow.IsNull("结果") Then

e.DataRow("判定") = Nothing

Else

Dim fhs() As String = {">", "=", "<"}

Dim ary() As String

For Each f As String In fhs

If str.Indexof(f) Then

If str.IndexOf("x") >= 0 Then

ary = str.split("x")

Else

ary = new String() {str}

End If

str = "pass"

For Each s As String In ary

Dim flag = False

For Each fh As String In fhs

If s.IndexOf(fh) = s.Length-1 Then

flag = True

End If

Dim ns As String = iif(flag=True, s & e.DataRow("结果"), e.DataRow("结果") & s)

Functions.remove("函数")

Dim Code As String

Code = "return " & ns

Functions.Add("函数",Code)

Functions.Complie()

Dim result = Functions.Execute("函数")

If result = False Then

str = "fail"

End If

e.DataRow("判定") = str

Exit For

End If

End Select

以上代码看了好久还是有点不明白，但如果直接套用，会发现若标准列为空，若结果有输入的时候，其判定还是显示pass而不是为空，我将其修改为IF的方式不用case的控制流程，还是不行；

Select Case e.DataCol.name
    Case "标准", "结果"
        Dim str As String = e.DataRow("标准")
        If str = Nothing OrElse e.DataRow.IsNull("结果") Then
            e.DataRow("判定") = Nothing
        Else
            Dim fhs() As String = {">", "=", "<"}
            Dim ary() As String
            For Each f As String In fhs
                If str.Indexof(f) Then
                    If str.IndexOf("x") >= 0 Then
                        ary = str.split("x")
                    Else
                        ary = new String() {str}
                    End If
                    str = "pass"
                    For Each s As String In ary
                        Dim flag = False
                        For Each fh As String In fhs
                            If s.IndexOf(fh) = s.Length-1 Then
                                flag = True
                            End If
                        Next
                        Dim ns As String = iif(flag=True, s & e.DataRow("结果"), e.DataRow("结果") & s)
                        Functions.remove("函数")
                        Dim Code As String
                        Code = "return " & ns
                        Functions.Add("函数",Code)
                        Functions.Complie()
                        Dim result = Functions.Execute("函数")
                        If result = False Then
                            str = "fail"
                        End If
                    Next
                    e.DataRow("判定") = str
                    Exit For
                End If
            Next
        End If
End Select

主题：[求助]关于表格结果判定问题