没实现!表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 If
End Select
用您上面的代码，没实现，我又自己改了一下代码，还是不行，麻烦您再给看看，谢谢
加好友 
发短信
Post By：2019/9/1 11:02:00 [显示全部帖子]
此主题相关图片如下：微信截图_20190901154903.jpg