主题：[求助]提示订单号重复录入的对话框代码如何写？

请教老师：订单编号列如果重复录入，出现提示框的代码如何写啊？

If e.DataCol.Name = "订单单号"
    Dim n  As Integer = DataTables("三级订单总表").Compute("Count(订单单号)" ,"[订单单号] = '" & e.DataRow("订单单号") & "'")
  if n>1 then
     MessageBox.Show("编号重复,将被删除!")      
      e.DataRow("订单单号") = nothing 
   end if
End If
此代码在总表中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:销售管理.table

没有弹出提示框啊？如何修改呢？

各位老师好：我的代码是请教得来的，表结构字符长度255是外部数据转换内部数据造成的，我希望的结果是订单单号在重复录入的时候能够弹出一个提示框，如果该列禁止重复设为true，重复录入可以自动清空录入内容，如果设为false，虽然有提示框出现，但录入内容不会清空，这如何解决呢？

感谢狐爸，代码还需深入体会啊。