老师，
下列代码放在 DataCol changing,当职员名称重复时，会出现MessageBox 提示1 出现4遍，提示2出现1遍，这是为什么。
Select Case e.DataCol.Name '判断编码和名称是否重复开始
Case "编码名称"
Dim dr As DataRow
dr = e.DataTable.Find("编码名称 = '" & e.NewValue & "'")
If dr IsNot Nothing Then
MessageBox.Show("职员名称重复是否正确!","请确认") ‘提示1
end If
Case "编码规则"
Dim dr As DataRow
dr = e.DataTable.Find("编码规则= '" & e.NewValue & "'")
If dr IsNot Nothing Then
MessageBox.Show("职员编码重复是否正确!","请确认")
e.Cancel = True
End If
End Select '判断编码和名称是否重复结束
If e.DataCol.Name = "编码名称" Then
Dim dr As DataRow
dr = e.DataTable.Find("编码名称 = '" & e.DataRow("编码名称") & "' and _Identify <> " & e.DataRow("_Identify"))
If dr IsNot Nothing Then
MessageBox.Show("职员姓名重复是否正确!","请确认") ‘提示2
e.Cancel=True
End If
End If
加好友 
发短信
Post By：2014/12/5 21:56:00 [显示全部帖子]
