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

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

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

 1、Filter，是针对已经加载的数据的。

 2、如果要针对没加载的数据，需要重新加载数据

DataTables("表A").LoadFilter = "_Identify not in (" & idx.trim(",") & ")"

DataTables("表A").Load

 看12楼

 同时，如果这种，建议你用sql语句直接重修加载数据啊。

 参考

http://www.cr173.com/html/7529_1.html

http://www.foxtable.com/help/topics/2721.htm

两列合并成一列，比如

 s elect 第一列 + '分隔符|' + 第二列 as 组合列 From {表A}