If e.DataCol.Name = "职位代码" AndAlso e.DataRow.IsNull(e.DataCol) = False AndAlso e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("准考证号") = False  Then
    Dim dr As DataRow = DataTables("职位代码").Find("职位代码 = \'" & e.DataRow(e.DataCol) & "\'")
    If dr IsNot Nothing Then
        If dr.IsNull("分组") = False Then
            For Each s As String In "天数|分组|面试室|是否加权".Split("|")
                e.DataRow(s) = dr(s)
            Next
        Else
            dr = DataTables("加权人员分组").Find("职位代码= \'" & e.DataRow(e.DataCol) & "\' And 准考证号 = \'" & e.DataRow("准考证号") & "\'")
            If dr IsNot Nothing Then
                For Each s As String In "天数|分组|加权人员区分|面试室|是否加权".Split("|")
                    e.DataRow(s) = dr(s)
                Next
            End If
        End If
    End If
End If

Select Case e.DataCol.name
    Case "加权人员区分","本场面试成绩","加权系数","本场面试成绩"
        If e.DataRow("加权人员区分") Is Nothing Then
            e.DataRow("面试成绩") = e.DataRow("本场面试成绩")
        Else
            e.DataRow("面试成绩") = Format(e.DataRow("加权系数")*e.DataRow("本场面试成绩"), "0.00")
        End If
End Select

If e.DataCol.name="笔试成绩"  OrElse e.DataCol.name="面试成绩" Then
    e.DataRow("总成绩") = Format(e.DataRow("笔试成绩")*0.5 + e.DataRow("面试成绩") * 0.5,"0.00")
End If

http://www.foxtable.com/webhelp/scr/1522.htm