- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 应用篇的筛选问题_不能在筛选的基础上对另一列再筛选？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=2637)
-- 发布时间：2009/4/29 17:25:00
-- 应用篇的筛选问题_不能在筛选的基础上对另一列再筛选？
第一次筛选 产品＝PD05 在此基础上 再对 客户列 进行不重复的筛选后，其他的产品怎么又冒出来了？？？
| 结果应该是下面这样才对呀？ ： | | | 怎么会有下面的结果呢？？？ | ||||
| PD05 | CS01 | | | PD02 | CS01 | ||
| PD05 | CS02 | | | PD03 | CS02 | ||
| PD05 | CS03 | | | PD05 | CS03 | ||
| PD05 | CS04 | | | PD05 | CS04 | ||
| PD05 | CS05 | | | PD04 | CS05 | ||
看演示：
此主题相关图片如下：应用篇章的筛选问题.gif
-- 发布时间：2009/4/29 18:17:00
--
可以编码搞定
-- 发布时间：2009/4/29 19:07:00
--
以下是引用ybil在2009-4-29 18:17:00的发言：
可以编码搞定
可以编码搞定
讨个编码～ .......... 谢谢！
-- 发布时间：2009/4/29 21:39:00
--
或许可以这样。
在窗口中加个组合框，选择产品，Load，排除重复。
-- 发布时间：2009/4/29 22:47:00
--
以下是引用八婺在2009-4-29 21:39:00的发言：
或许可以这样。
在窗口中加个组合框，选择产品，Load，排除重复。
看楼下：：：
[此贴子已经被作者于2009-4-29 22:51:19编辑过]
-- 发布时间：2009/4/29 22:50:00
--
谢了～ 但无论如何，在应用篇中，这也是个问题！！ 这个有点类似http://www.foxtable.com/dispbbs.asp?boardid=2&Id=2622 里面的问题，不知狐爸是否也一起解决了？
-- 发布时间：2009/4/29 22:56:00
--
出现一楼的结果,原因是:其他筛选都是针对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
-- 发布时间：2009/4/30 0:06:00
--
好纳闷的问题。
下面的代码理论上可行，但排除重复却不行
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编辑过]
-- 发布时间：2009/4/30 0:20:00
--
老六应该改一下，重复筛选应该针对table才对
-- 发布时间：2009/4/30 6:28:00
--
以前提到的帖子：该帖5楼、6楼要求，一并关注一下
[此贴子已经被作者于2009-4-30 8:21:37编辑过]