用如下码,禁止“照片号”(本列是用代码把几列数据合成的)列重复,但不能回到老数据上,重复号码依旧
Select Case e.DataCol.name
Case "照片号","底片号"
Dim xh As String
Dim gg As String
If e.DataCol.Name= "照片号" Then
xh = e.NewValue
gg = e.DataRow("底片号")
Else
gg = e.NewValue
xh = e.DataRow("照片号")
End If
If xh > "" AndAlso gg > "" Then
Dim dr As DataRow = e.DataRow
If e.DataTable.Find("照片号 = '" & xh & "' And 底片号 = '" & gg & "'") IsNot Nothing Then
MessageBox.Show("已经存在相同型号和规格的行!","提示")
e.DataRow(e.DataCol.Name) = e.OldValue '取消输
End If
End If
End Select