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

楼主的判断条件有问题,直接判断身份证号码是否重复就是了

 

If e.DataCol.Name = "身份证号" Then  '如果编辑的是身份证号列

   if not e.datarow.isnull("人员编号") then

    Dim dr As DataRow

    dr = e.DataTable.Find("人员编号"=e.DataRow("人员编号"))  '那么搜索以往记录中，与正在编辑的这条行的记录里面的人员编号相同的记录

    If dr IsNot Nothing   '如果有这样的记录

        If e.NewValue <> dr("身份证号") Then    '那么将正在输入的身份证号和上面检索到的记录中的身份证号对比,如果是不一样的

            MessageBox.Show("此人员编号已有使用记录,无法录入新的身份证号!")  '弹出提示窗口

            e.Cancel = True  '则取消此次更改

        End If

    End If

   endif

End If

 

 

加多一个判断，人员编号不为空，才进行判断