以下代码是让被考核人不重复的代码：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
请问如何改成多条件的不重复值，请老师们帮忙修改下如下代码（例如年度与被考核人两个一起不重复，但2个单独时可以重复，2个条件一起就不可以重复），谢谢
If e.DataCol.Name = "被考核人" Then
Dim dr As DataRow
dr = e.DataTable.Find("年度 = '" & e.NewValue And "被考核人 = '" & e.NewValue & "'")
If dr IsNot Nothing Then
MessageBox.Show("此被考核人已经存在!")
e.Cancel = True
End If
End If
[此贴子已经被作者于2024/4/25 13:28:01编辑过]