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

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