Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
Case "内部审计年度风险评估调查表_固有风险_分值","内部审计年度风险评估调查表_控制水平_控制水平系数"
If dr.IsNull("内部审计年度风险评估调查表_固有风险_影响程度") OrElse dr.IsNull("内部审计年度风险评估调查表_固有风险_可能性")
dr("内部审计年度风险评估调查表_剩余风险_剩余风险分值") =Nothing
Else
dr("内部审计年度风险评估调查表_剩余风险_剩余风险分值") = dr("内部审计年度风险评估调查表_固有风险_分值")*dr("内部审计年度风险评估调查表_控制水平_控制水平系数")
End If
End Select
Select Case e.DataCol.name
Case "内部审计年度风险评估调查表_剩余风险_剩余风险分值","内部审计年度风险评估调查表_内审监督情况_上次审计时间分值","内部审计年度风险评估调查表_内审监督情况_上次审计结果分值","内部审计年度风险评估调查表_战略默契度_战略默契度打分","内部审计年度风险评估调查表_管理层或专业部门需求_分值"
If dr.IsNull("内部审计年度风险评估调查表_剩余风险_剩余风险分值") OrElse dr.IsNull("内部审计年度风险评估调查表_内审监督情况_上次审计时间分值") OrElse 其它几个列的判断自己补充完整
dr("内部审计年度风险评估调查表_审计风险关注度_总分") =Nothing
Else
dr("内部审计年度风险评估调查表_审计风险关注度_总分") = dr("内部审计年度风险评估调查表_剩余风险_剩余风险分值")+dr("内部审计年度风险评估调查表_内审监督情况_上次审计时间分值")+dr("内部审计年度风险评估调查表_内审监督情况_上次审计结果分值")+dr("内部审计年度风险评估调查表_战略默契度_战略默契度打分")+dr("内部审计年度风险评估调查表_管理层或专业部门需求_分值")
End If
End Select