应用篇的筛选问题_不能在筛选的基础上对另一列再筛选？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

好纳闷的问题。

下面的代码理论上可行，但排除重复却不行图片点击可在新窗口打开查看

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

[此贴子已经被作者于2009-4-30 0:06:46编辑过]

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