主题：为什么不计算

If e.DataCol.Name = "准考证号" Then '如果内容发生变动的是品名列
    If e.DataRow.Isnull("报考学科") OrElse e.DataRow.Isnull("面试讲课") OrElse e.DataRow.Isnull("面试技能") Then
        e.DataRow("面试成绩") = Nothing '那么清空此行单价列的内容
    Else
        Select Case e.DataRow("报考学科")
            Case "初中信息技术","初中体育","初中美术","初中音乐","小学信息技术","小学体育","小学美术","小学音乐"
                e.DataRow("面试成绩") =( e.DataRow("面试讲课") + e.DataRow("面试技能"))/2
            Case Else
                e.DataRow("面试成绩") =e.DataRow("面试讲课")
        End Select
    End If
End If