主题：[求助]

我在表("物料信息")datacolchanging事件中写了如下代码:

If E.DataCol.Name = "物料编号" Then

    Dim DR As DataRow = DataTables("物料信息").Find("物料编号 = '" & E.NewValue & "'")

    If DR IsNot Nothing Then

        MessageBox.Show("您输入的编号已存在,请重新输入","关键字段重复")

        E.Cancel = True

    End If

End If

但在窗口中,如果输入重复值会再现两次信息对话框(红色方框标记)!!,也就是要按两次确定键!!!!何解??

此主题相关图片如下：360截图20150312092747331.jpg