有三个列，分别为单位代码、仓库代码、物料编号，希望当这个列任何一列输入新数据的时候，将用三个组合成为一个组合对表进行查重，有重复将提示，两个组合我可以实现，三个的时候试了几次都有问题，请帮忙修正以下代码，谢谢！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.Delete
End If
End If
End Select
加好友 
发短信
Post By：2016/10/15 11:19:00 [显示全部帖子]
