主题：[求助]帮忙修改一下这段小代吗

这是写在全局表事件StartEdit中的一段代吗，当我新增行进行编辑时，同样出现不准修改的提示，问题出在哪里呢。

Dim dr As DataRow = CurrentTable.Current.DataRow

If dr IsNot Nothing Then

    If dr("营销人员") <> User.Name Then

        MessageBox.Show("大哥,这不是你的记录,你无权修改哦")

        e.Cancel = True

    End If

Else

    If dr Is Nothing Then

       CurrentTable.AllowEdit = True

    End If

End If