标题：[求助]代码不能达到要求（已解决）

代码要求填充所在部门，但是十二月空缺的就无法填充，代码应该如何修改，请各位老师指教，谢谢！！

'填充所在部门
Select Case e.DataCol.Name
    Case "姓名"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("姓名") Then
            dr("所在部门") = Nothing
        Else
            If dr("部门_十二月") IsNot Nothing Then
                dr("所在部门") = dr("部门_十二月")
            ElseIf dr("部门_十一月") IsNot Nothing Then
                dr("所在部门") = dr("部门_十一月")
            ElseIf dr("部门_十月") IsNot Nothing Then
                dr("所在部门") = dr("部门_十月")
            ElseIf dr("部门_九月") IsNot Nothing Then
                dr("所在部门") = dr("部门_九月")
            ElseIf dr("部门_八月") IsNot Nothing Then
                dr("所在部门") = dr("部门_八月")
            ElseIf dr("部门_七月") IsNot Nothing Then
                dr("所在部门") = dr("部门_七月")
            ElseIf dr("部门_六月") IsNot Nothing Then
                dr("所在部门") = dr("部门_六月")
            ElseIf dr("部门_五月") IsNot Nothing Then
                dr("所在部门") = dr("部门_五月")
            ElseIf dr("部门_四月") IsNot Nothing Then
                dr("所在部门") = dr("部门_四月")
            ElseIf dr("部门_三月") IsNot Nothing Then
                dr("所在部门") = dr("部门_三月")
            ElseIf dr("部门_二月") IsNot Nothing Then
                dr("所在部门") = dr("部门_二月")
            Else
                dr("所在部门") = dr("部门_一月")
            End If
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目177.table