主题：如何后台全局禁止重复数据 急急急

If e.DataCol.Name = "客户名称" Then

    Dim cmd As New SQLCommand

  Dim dt As DataTable

    cmd.C   '数据源名称

    cmd.CommandText = "select DISTINCT 客户名称 From {表名} Where 客户名称 ='" & e.NewValue & "'"

    dt = cmd.ExecuteReader()

    If dt.DataRows.Count > 0 Then

        MessageBox.Show("此客户已经存在!")

        e.Cancel = True

    End If

End If