主题：各位高手，我想计算一个方差，不知道代码怎么写，请教各位！

Select Case e.DataCol.name
    Case "退休费合计", "退休时间"
        If e.DataRow.isnull("退休时间") Then
            e.DataRow("中人老办法待遇") = Nothing
        Else
            e.DataRow("中人老办法待遇") = e.DataRow("退休费合计")*(1+0.06)^(Cdate(e.DataRow("退休时间")).year-2015)
        End If
End Select

Select Case e.DataCol.name
    Case "身份证号码"
        If e.DataRow.IsNull("身份证号码") Then
            e.DataRow("籍贯") = Nothing
        Else
            Dim bm As String = e.DataRow("身份证号码").SubString(0,6)
            Dim dr As DataRow = DataTables("身份证").Find("籍贯编码 = '" & bm & "'")
            If dr IsNot Nothing Then
                e.DataRow("籍贯") = dr("籍贯")
            End If