主题：请问，菜单里的查询重复项，指的是针对单列，如果针对双列甚至更多列，有快速的命令吗？

 汗，原来这么麻烦。下面代码是取出不重复的数据的。

Dim str As String = "第一列,第二列"
Dim idx As String = ""
Dim ary() As String = str.Split(",")
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", str)
    Dim flag As Boolean = False
    For Each a As String In ary
        If pdr IsNot Nothing AndAlso dr(a) <> pdr(a) Then
            flag = True
        End If
    Next
    If flag = False Then
        count += 1
    Else
        If count = 1 Then
            idx &= pdr("_Identify") & ","
        End If
        count = 1
    End If
    pdr = dr
Next

For Each a As String In ary
    If pdr IsNot Nothing AndAlso Tables("表A").Rows(Tables("表A").Rows.count-2)(a) <> pdr(a) Then
        idx &= pdr("_Identify") & ","
    End If
Next

Tables("表A").filter = "_Identify in (" & idx.trim(",") & ")"

看你原帖，或者看下面代码

Dim str As String = "第一列,第二列"
Dim idx As String = ""
Dim ary() As String = str.Split(",")
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", str)
    Dim flag As Boolean = False
    For Each a As String In ary
        If pdr IsNot Nothing AndAlso dr(a) <> pdr(a) Then
            flag = True
        End If
    Next
    If flag = False Then
        count += 1
    Else
        If count = 1 Then
            idx &= pdr("_Identify") & ","
        End If
        count = 1
    End If
    pdr = dr
Next

For Each a As String In ary
    If pdr IsNot Nothing AndAlso Tables("表A").Rows(Tables("表A").Rows.count-2)(a) <> pdr(a) Then
        idx &= pdr("_Identify") & ","
    End If
Next

Tables("表A").filter = "_Identify not in (" & idx.trim(",") & ")"

什么意思？6楼取出的就是重复的数据啊

 这段不能去掉

For Each a As String In ary
    If pdr IsNot Nothing AndAlso Tables("I0_Joint").Rows(Tables("I0_Joint").Rows.count-2)(a) <> pdr(a) Then
        idx &= pdr("JointID") & ","
    End If
Next