主题：数据验证

数据类型如下

 

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