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 tx As String = e.DataRow("结果").SubString(0,1)
If tx = "未" OrElse tx = "符" OrElse tx = "备" OrElse tx = "<" Then
e.DataRow("判定") = "合格"
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 = "合格"
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 = "不合格"
End If
Next
e.DataRow("判定") = str
Exit For
End If
Next
End If
End If
End Select
1.若结果栏中输入带有”未“，”符“，”备“，或”<"开头的字符时，自动判定为合格，
2.若是输入数字的话，会用以下函数进行判定；
但若输入均不符合以上的时候，允许输入，但判定栏为空，请问应该如何修改；
上面的代码在运行的时候，若文字不是满足1的话，会出现错误；
加好友 
发短信
Post By：2016/12/23 10:42:00 [只看该作者]
