主题：帮忙看看这个代码哪里出错了

1、最高分、最低分列，要改成数值列，不能是字符列

2、

If e.DataCol.Name = "菲尔人格分数" Then
    If e.DataRow.IsNull("菲尔人格分数") Then
        e.DataRow("结论") = Nothing
        e.DataRow("评语") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("T_PT_PhilQ").find("最高分 >= " & e.DataRow("菲尔人格分数") & " and 最低分 <= " & e.DataRow("菲尔人格分数"))
        If dr IsNot Nothing Then
            e.DataRow("结论") = dr("结论")
            e.DataRow("评语") = dr("评语")
        End If
    End If
End If