数据类型如下

QQ-apm-1-22- cyt 

最后一个 " -"  后面为用户名

数据输入后，将自动检测所输入的数据是不是与第一个数据是相同的客户？ 如果不是的话，

则提示警告音，并提示“请注意，客户名错误”

取得"-"之后的用户名：

http://www.foxtable.com/help/topics/1338.htm

在DataColhanging(注意不是DataColChanged)设置代码：

if e.datacol.Name = "客户名" Then

    if e.NewValue > "" AndAlso e.NewValue.Indexof("-") > 0 Then

        dim idx = e.NewValue.LastIndexof("-")

        Dim nm As string = "\'*-" * e.NewValue.SubString(idx + 1) & "\'"

        if e.DataTable.Find("客户名 Like " & nm) IsNot Nothing Then

              e.Cancel = True

              MessageBox.show(“已经存在同名客户”)

       End if

    end if

End if