主题：应用篇的筛选问题_不能在筛选的基础上对另一列再筛选？

第一次筛选 产品＝PD05 在此基础上 再对 客户列 进行不重复的筛选后，其他的产品怎么又冒出来了？？？

结果应该是下面这样才对呀？ ：			|	怎么会有下面的结果呢？？？
PD05	CS01		|	PD02	CS01
PD05	CS02		|	PD03	CS02
PD05	CS03		|	PD05	CS03
PD05	CS04		|	PD05	CS04
PD05	CS05		|	PD04	CS05

看演示：

此主题相关图片如下：应用篇章的筛选问题.gif

可以编码搞定

讨个编码～  ..........  谢谢！

或许可以这样。
在窗口中加个组合框，选择产品，Load，排除重复。

 看楼下：：：

谢了～   但无论如何，在应用篇中，这也是个问题！！ 这个有点类似http://www.foxtable.com/dispbbs.asp?boardid=2&Id=2622 里面的问题，不知狐爸是否也一起解决了？

出现一楼的结果,原因是:其他筛选都是针对Table的,独『重复筛选』是针对DataTable!
本人觉得『重复筛选』也应该针对Table为好,大家认为呢?

一楼的要求可这样:
With  Tables("订单")
    Dim Khs,T As String   
    for each r as Row In .Rows
        if Khs is Nothing orelse Khs.Indexof(r("客户")) = -1 then
            T = T & " or [_Identify] = " & r("_Identify")
            Khs = Khs & "|" & r("客户")
        End If
    Next
   
    .Filter = T.Substring(4)
    .Sort = "客户"
End with

好纳闷的问题。

下面的代码理论上可行，但排除重复却不行

Dim Str,Str1 As String
Str = e.Form.Controls("ComboBox1").Value
Str1 = e.Form.Controls("ComboBox2").Value
if Str <> "" And Str1 <> "" Then
        Select Case Str1
        Case "显示重复值"
            Syscmd.Filter.ShowSameValues()
            Tables("订单").Filter = ""
            Tables("订单").Filter = "[产品] = '" & Str & "' And [System_Filter_Unique] = True"
        Case "排除重复值"
            Syscmd.Filter.HideSameValues()
            Tables("订单").Filter = ""
            Tables("订单").Filter = "[产品] = '" & Str & "' And [System_Filter_Unique] = False"
        Case "显示冗余值"
            Syscmd.Filter.ShowRedundantValues()
            Tables("订单").Filter = ""
            Tables("订单").Filter = "[产品] = '" & Str & "' And [System_Filter_Unique] = true"
    End Select
End If

老六应该改一下，重复筛选应该针对table才对

以前提到的帖子：该帖5楼、6楼要求，一并关注一下