主题：代码纠正

写了一以下代码。但是会弹出2次对话框，请高手确认一下！

第一次出现后，单击确定后，

第2次还会出现，再次单击确定后，就好了。

If e.DataCol.name="管理号码1" Then

    If e.newValue>e.DataRow("管理号码2") Then

        MessageBox.Show("管理号码1输入错误,请确认!", "提示", MessageBoxButtons.ok)

e.cancel= Then

    End If

End If