If e.DataCol.Name = "优先等级" Then
Dim dr As DataRow
dr = e.DataTable.SQLFind("优先等级 = '" & e.NewValue & "' And 当前设计师 = '" & e.DataRow("当前设计师") & "'")
If dr IsNot Nothing Then
MessageBox.Show("同一设计师无法设置两个相同的优先级别")
e.Cancel = True
End If
End If
在 datacolchanging 中加入这个代码, 在一定程度上可以避免输入重复值。
但是实际使用过程中,遇到问题:
如果编辑的时候,同时编多行后再保存,那么在编辑的过程中,无法判断出输入重复值 。
如下图片:
此主题相关图片如下:snipaste_2022-05-22_09-56-13.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2022-5/20225229562914153.jpg)