主题：麻烦高手帮我看下这个表事件

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

    End If

End If