根据值所在的区间判断等级 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表A设定了值的区间R1-R2，表B的风险值列在表A中找到值所在区间的行，填入风险等级、风险级别和管控层级，表A要使用与表B企业名称列相同的行，如果表A中没有与表B企业名称相同的行，表A列使用企业名称为“通用”的行。

如何写代码？谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3-根据区间值定级别.foxdb

For Each dr As DataRow In DataTables("表B").Select("企业名称>''")
    Dim drs As List(of DataRow) = DataTables("表A").Select("企业名称='" & dr("企业名称") & "'")
    If drs.Count = 0
        drs = DataTables("表A").Select("企业名称='通用'")
    End If
    If drs.Count > 0
        For Each fdr As DataRow In drs
            If dr("风险值") >= fdr("R1") AndAlso dr("风险值") <= fdr("R2")
                dr("风险等级") = fdr("风险等级")
                dr("风险级别") = fdr("风险级别")
                dr("管控层级") = fdr("管控层级")
                Exit For
            End If
        Next
    End If
Next

出现了以下错误：

此主题相关图片如下：微信截图_20190901154903.jpg

怎么回事？

表B，datacolchanged事件

Select Case e.DataCol.Name

Case "企业名称","风险值"

If e.DataRow.IsNull("企业名称") OrElse e.DataRow.IsNull("风险值")

e.DataRow("风险等级") = Nothing

Else

Dim dr As DataRow = DataTables("表A").Find("企业名称='" & e.DataRow("企业名称") & "' and 风险等级 <= " & e.DataRow("风险值") & " and 风险等级 >=" & e.DataRow("风险值"))

If dr Is Nothing Then

dr = DataTables("表A").Find("企业名称='通用' And R1 <= " & e.DataRow("风险值") & " and R2 >=" & e.DataRow("风险值"))

End If

If dr Is Nothing Then

e.DataRow("风险等级") = Nothing

Else

e.DataRow("风险等级") = dr("风险等级")

End If

End Select

没实现!

表A设定了列：企业名称、值的区间R1、R2、风险等级、风险级别、管控层级等列。表B设置了列：企业名称、mes_风险值、风险等级、风险级别、管控层级等。

表B的MES_风险值列在表A中找到值所在区间的正确行，在表B中填入找到的风险等级、风险级别和管控层级，表A要使用与表B企业名称列相同的行，如果表A中没有与表B企业名称相同的行，表A使用企业名称为“通用”的行。不管使用企业名称相同的还是使用企业名称为通用的，风险等级、风险级别和管控层级都要填入找到的内容。

Select Case e.DataCol.Name

Case "MES_风险值"

If e.DataRow.IsNull("企业名称") OrElse e.DataRow.IsNull("MES_风险值")

e.DataRow("MES_评价级别") = Nothing

e.DataRow("风险分级") = Nothing

e.DataRow("管控层级") = Nothing

Else

Dim dr As DataRow = DataTables("MES法").Find("企业名称 = '" & e.DataRow("企业名称") & "' and R1 <= " & e.DataRow("MES_风险值") & " and R2 >=" & e.DataRow("MES_风险值"))

If dr IsNot Nothing Then

e.DataRow("MES_评价级别") = dr("风险等级")

e.DataRow("风险分级") = dr("风险级别")

e.DataRow("管控层级") = dr("管控层级")

Else

dim dt as datarow = DataTables("MES法").Find("企业名称 = '通用' And R1 <= " & e.DataRow("MES_风险值") & " and R2 >=" & e.DataRow("MES_风险值"))

e.DataRow("MES_评价级别") = dt("风险等级")

e.DataRow("风险分级") = dt("风险级别")

e.DataRow("管控层级") = dt("管控层级")

End If

End Select

用您上面的代码，没实现，我又自己改了一下代码，还是不行，麻烦您再给看看，谢谢

4楼的代码我在1楼的实例测试没有问题，说明如何测试，按什么步骤，输入什么数据有问题？

如果是改到其它实例不会改，就上传有问题的实例说明

如果MES_风险值这一列是通过公式计算得出的，而不是输入的，就不行，我改了一下，现在可以了。谢谢老师

主题：根据值所在的区间判断等级