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

最好提供一个例子。
基本上就是利用DataTable的Find函数查找，看看是否有对应的记录。
此外，列属性设置中，也有禁止输入重复内容的选项。

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

没有看出问题来,你做个例子上来,我看看你哪里出问题了.