主题：[求助]代码能否再精减优化？

Dim ary1() As String = {"补考实操", "补考潜能", "补考两项"}
Dim ary2() As String = {"重新评审", "破格评审"}
If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 Then
    e.DataRow("实潜资格") = True
    e.DataRow("考核项目") = "两项"
Else If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") <60 Then
    e.DataRow("实潜资格") = False
    e.DataRow("考核项目") = "无"
    e.DataRow("补考性质") = "正常申报"
End If
Dim str As String = e.DataRow("申报性质")
Dim idx As Integer = array.IndexOf(ary1, str)
If idx >= 0 Then
    e.DataRow("实潜资格") = True
    e.DataRow("考核项目") = ary1(idx).Substring(2,2)
Else
    idx = array.IndexOf(ary2, str)
    If idx >= 0 Then
        e.DataRow("实潜资格") = True
        e.DataRow("考核项目") = ary2(idx).Substring(0,2)
    End If
End If