主题：禁止重复

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

    End If

End If