最好提供一个例子。
基本上就是利用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

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