主题：[求助]如何实现单列禁止部分重复值输入？

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

上面这段代码是单列防重复录入，实测好用。我的问题是：能否做到只对一类科目的设置进行防重复验证，如：%班（以“班”结尾的科目名称），而对其它的（不以“班”结尾的科目名称）不做验证，可以重复。请老师指导。感谢！