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

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

表中测试正常