If e.DataCol.Name="身份证号" Then
Dim dr As DataRow
dr = DataTables("企业人员基本信息表").find("人员编号" = e.DataRow("人员编号"))
If dr IsNot Nothing
If e.NewValue=dr("身份证号") Then
MessageBox.Show("同一人员不能使用不同工号,请重新录入!")
e.Cancel=True
End If