原数据类型(单精度型和整数型)没有问题。
问题已得到解决,代码如下:
Select Case e.DataCol.Name
Case "第四列","第五列","第六列"
If e.DataRow("第四列") < 1 Or e.DataRow("第五列") < 30 Or e.DataRow("第六列") < 25 Then
e.DataRow("第七列") = 4
ElseIf e.DataRow("第四列") < 2 Or e.DataRow("第五列") < 60 Or e.DataRow("第六列") < 50 Then
e.DataRow("第七列") = 3
ElseIf e.DataRow("第四列") < 3 Or e.DataRow("第五列") < 90 Or e.DataRow("第六列") < 75 Then
e.DataRow("第七列") = 2
ElseIf e.DataRow("第四列") < 4 Or e.DataRow("第五列") < 120 Or e.DataRow("第六列") < 100 Then
e.DataRow("第七列") = 1
Else
e.DataRow("第七列") = 0
End If
End Select