双体系清单--datacolchanged
'自动计算风险分级和管控层级
For Each dr1 As DataRow In DataTables("双体系清单").Select("企业名称 > ''")
Dim drs1 As List(of DataRow) = DataTables("MES法").Select("企业名称 = '" & dr1("企业名称") & "'")
If drs1.Count = 0
drs1 = DataTables("MES法").Select("企业名称 = '通用'")
End If
If drs1.Count > 0
For Each fdr1 As DataRow In drs1
If dr1("MES_风险值") >= fdr1("R1") AndAlso dr1("MES_风险值") <= fdr1("R2")
dr1("MES_评价级别") = fdr1("风险等级")
dr1("风险分级") = fdr1("风险级别")
dr1("管控层级") = fdr1("管控层级")
End If
Next
End If
Next
For Each dr2 As DataRow In DataTables("双体系清单").Select("企业名称 > ''")
Dim drs2 As List(of DataRow) = DataTables("LEC法").Select("企业名称 = '" & dr2("企业名称") & "'")
If drs2.Count = 0
drs2 = DataTables("LEC法").Select("企业名称 = '通用'")
End If
If drs2.Count > 0
For Each fdr2 As DataRow In drs2
If dr2("LEC评价_风险值") >= fdr2("R1") AndAlso dr2("LEC评价_风险值") <= fdr2("R2")
dr2("LEC评价_评价级别") = fdr2("风险等级")
dr2("风险分级") = fdr2("风险级别")
dr2("管控层级") = fdr2("管控层级")
End If
Next
End If
Next
For Each dr3 As DataRow In DataTables("双体系清单").Select("企业名称 > ''")
Dim drs3 As List(of DataRow) = DataTables("风险矩阵法").Select("企业名称 = '" & dr3("企业名称") & "'")
If drs3.Count = 0
drs3 = DataTables("风险矩阵法").Select("企业名称 = '通用'")
End If
If drs3.Count > 0
For Each fdr3 As DataRow In drs3
If dr3("LS评价_风险值") >= fdr3("R1") AndAlso dr3("LS评价_风险值") <= fdr3("R2")
dr3("LS评价_评价级别") = fdr3("风险等级")
dr3("风险分级") = fdr3("风险级别")
dr3("管控层级") = fdr3("管控层级")
End If
Next
End If
Next
加好友 
发短信
Post By：2019/9/1 17:38:00 [只看该作者]
