主题：如何实现在点击录入窗口的按钮后判断当前在窗口中录入的身份证和原来的身份证比较有重复没有？谢谢

如何实现在点击录入窗口的按钮后判断当前在窗口中录入的身份证和原来的身份证比较有重复没有？谢谢

 

Dim drs As List(Of DataRow) = DataTables("人事工资管理").Select("[身份证号] = '" & e.DataRow("身份证号") & "'")

if "身份证号" <>"" and drs.Count - 1 > 0 Then

    MessageBox.Show(" 身份证号重复,请核对!!!")

就是这段代码，在按钮中如何实现，谢谢！！！

 

Dim C As  String

C = e.Form.Controls("身份证号").Value

With CurrentTable
    Dim r As Integer
    r = .Find(C, 0, “身份证号”, False, False, True)
    If r > - 1 Then '如果找到符合条件的行
      MessageBox.Show(" 身份证号重复,请核对!!!")
    End If
End With

这样做好像不对！！！

就差这个问题没有解决了，版主帮帮忙，谢谢

这是上载的例子！谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:a.table

下一步我要设计一个审核按钮，审核表内的所有身份证号是否重复，如果不能在按钮中实现，其他单位上报的数据就无法审核了！！版主有其他办法没，在易表中我是实现了的！！！

要在审核结果列出现审核的结果！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:b.table

就是搞不定哟，版主帮帮忙谢谢