直接删除行,报错,报错是英文,看不懂
Select Case e.DataCol.name
Case "档案编号","类号"
Dim dr As DataRow = e.DataRow
If dr.IsNull("档案编号") = False AndAlso dr.IsNull("类号") = False Then
If e.DataTable.Compute("Count([_Identify])","档案编号 = '" & dr("档案编号") & "' And 类号 = '" & dr("类号") & "'") > 1 Then
MessageBox.Show("已经存在相同的数据,相同数据将被直接删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
dr.delete
End If
End If
End Select