主题：如何比对七个datatable中相同的身份证号的记录？

现有七个datatable,每个datatable都有一个身份证号的字段，请问高手：

如何比对七个datatable中表间重复的身份证号的记录？

把7个表的身份证加起来. 放在一个临时表.然后点击高级筛选功能,显示重复值.

用代码可以实现吗？我不希望放在一个表中。因为这七个表中的字段名称都不一样，除了身份证号。

还是觉得不够理想。

在没有别的更好的办法了吗？

Dim s As New List (Of String)
For Each dt As DataTable In DataTables
    If dt.DataCols.Contains("身份证号码") Then
        For Each dr As DataRow In dt.DataRows
            s.Add(dr("身份证号码"))
        Next
    End If
Next

Dim str As String
Dim i,j As Integer
For i = 0 To s.Count - 1
    For j = 0 To i - 1
        If s(i) = s(j) Then
            Exit For
        End If
    Next
    If i <> j Then
        str = str & s(i) & "|"
    End If
Next
str = str.TrimEnd("|")
MessageBox.Show(str)