主题：编码唯一

 datacolchanging事件里写的代码

If e.DataCol.Name = "单元编号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("单元编号= '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此单元编号已经存在!")
        e.Cancel = True
        e.newvalue = Nothing
    End If
End If

判断单元编号的唯一性怎么弹窗会弹三次