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

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
end if
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