主题：计算代码问题求帮助！

Select Case e.DataCol.Name
    Case "理论成绩","实操成绩","潜能成绩","工作业绩","临时成绩","评审资格","年份"
        If e.DataRow("年份") >= 15 Then
            If e.DataRow("鉴定等级") = "高级工" Or e.DataRow("鉴定等级") = "中级工" Then
                If e.DataRow("评审资格") = True Then
                    If e.DataCol.name = "临时成绩" OrElse e.DataCol.name = "理论成绩" OrElse e.DataCol.name = "实操成绩" OrElse e.DataCol.name = "潜能成绩" OrElse e.DataCol.name = "临时成绩" OrElse e.DataCol.name = "工作业绩" Then
                        e.DataRow("临时成绩") = e.DataRow("理论成绩") * 0.3 + e.DataRow("实操成绩") * 0.3 + e.DataRow("潜能成绩") * 0.2 + e.DataRow("工作业绩") * 0.2
                    Else
                        e.DataRow("临时成绩") = ""
                    End If
                End If
            End If
        End If
End Select