主题：高手们帮我看看，问题出在哪里

Dim dr As DataRow
dr = DataTables("会员表").Find("会员编号 = " & "'" & e.DataRow("会员编号") & "'" )
If e.DataCol.Name = "会员编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("姓名") = Nothing
        e.DataRow("性别") = Nothing
        e.DataRow("年龄") = Nothing
        e.DataRow("联系电话") = Nothing
    Else
        If dr IsNot Nothing  Then
            e.DataRow("姓名") = dr("会员姓名")
            e.DataRow("性别") = dr("性别")
            e.DataRow("年龄") = dr("年龄")
            e.DataRow("联系电话") = dr("联系电话")
        End If
    End If
Else
    If  e.DataCol.Name = "hybh" Then
        If e.NewValue Is Nothing Then
            e.DataRow("xm") = Nothing
            e.DataRow("xb") = Nothing
            e.DataRow("nl") = Nothing
            e.DataRow("lxdh") = Nothing
        Else
            If dr IsNot Nothing  Then
                e.DataRow("xm") = dr("会员姓名")
                e.DataRow("xb") = dr("性别")
                e.DataRow("nl") = dr("年龄")
                e.DataRow("lxdh") = dr("联系电话")
            End If
        End If
    End If
End If

为什么代码的下半段总是不成立呢