主题：关于跨表引用数据，重置列后数据不能更新问题，求助

If e.DataCol.Name = "村干部编号" Then

    If e.NewValue Is Nothing Then

        e.DataRow("村干部姓名") = Nothing

    Else

        Dim dr As DataRow = DataTables("村干部基本信息").find("[村干部编号] = '" & e.NewValue & "'")

        If dr isnot nothing Then

           e.DataRow("村干部姓名") = dr("姓名")

           e.DataRow("干部类型") = d("干部类型")

       Else

           MessageBox.Show("不存在此村干部编号!")

           e.DataRow("村干部编号") = Nothing

        End If

    End If

End If