主题：禁止列重复值代码无效

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

上述代码在窗口中没起到禁止输入重复值的效果