[求助]代码不能达到要求（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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