以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现单列禁止部分重复值输入？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186236)
--  作者：1qaz2wsx
--  发布时间：2023/4/15 9:02:00
--  [求助]如何实现单列禁止部分重复值输入？

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

上面这段代码是单列防重复录入，实测好用。我的问题是：能否做到只对一类科目的设置进行防重复验证，如：%班（以“班”结尾的科目名称），而对其它的（不以“班”结尾的科目名称）不做验证，可以重复。请老师指导。感谢！
--  作者：有点蓝
--  发布时间：2023/4/15 9:30:00
--  
If e.DataCol.Name = "科目" Then
if e.Datarow("科目") like "*班"
    Dim dr As DataRow
    dr = e.DataTable.Find("科目  = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此科目已设置过了!")
        e.Cancel = True
    End If
End If
End If
--  作者：1qaz2wsx
--  发布时间：2023/4/15 10:03:00
--  
感谢！明白了。