Syscmd.Filter.HideSameValues()对窗口中的副本表无效？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Syscmd.Filter.HideSameValues()对窗口中的副本表无效？

共有9810人关注过本帖树形打印复制链接主题：Syscmd.Filter.HideSameValues()对窗口中的副本表无效？

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/21 10:08:00 [显示全部帖子]

几种方法。

方法一，遍历所有的行，比较取出所有不重复的_Identify，然后设置filter

方法二，用datatable.getxxxvalue()取出不重复的值，然后设置filter

方法三，直接用sql语句查找不重复的_Identify，然后设置filter；或者直接使用sql加载不重复的行。

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/24 13:30:00 [显示全部帖子]

做一下，方法2，方法一应该是最好的。

Tables("订单").Filter = "单价 < 10"   '模拟筛选

'开始,产品和客户不重复的行
Dim idxs As String
For Each ary As String() In DataTables("订单").GetUniqueValues(Tables("订单").Filter, "产品", "客户")
    Dim fdr As DataRow = DataTables("订单").Find("产品 = '" & ary(0) & "' And 客户 = '" & ary(1) & "' And (" & Tables("订单").Filter & ")")
    idxs &= fdr("_Identify") & ","
Next

Tables("订单").Filter = "_Identify in (" & idxs.Trim(",") & ")"

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/24 13:38:00 [显示全部帖子]

方法一。

Tables("订单").Filter = "单价 < 10"   '模拟筛选

'开始,产品和客户不重复的行
Dim idxs As String = ""
Dim prev_cp As String = ""
Dim prev_kh As String = ""
For Each dr As DataRow In DataTables("订单").Select(Tables("订单").Filter, "产品,客户")
    If prev_cp <> dr("产品") OrElse prev_kh <> dr("客户") Then
        idxs &= dr("_Identify") & ","
        prev_cp = dr("产品")
        prev_kh = dr("客户")
    End If
Next

Tables("订单").Filter = "_Identify in (" & idxs.Trim(",") & ")"

lin_hailun

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/24 14:56:00 [显示全部帖子]

以下是引用blackzhu在2013-1-24 14:08:00的发言：

With Tables(e.Form.Name & "_Table2")

.Select(.RowSel, .Cols("第一列").Index)

Syscmd.Filter.HideSameValues()

End With

测试没有问题.

嗯嗯，确实是测试正常。

With Tables(e.Form.Name & "_Table1")

.Select(.RowSel, .ColSel)

Syscmd.Filter.HideSameValues()

End With

lin_hailun

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/25 18:11:00 [显示全部帖子]

以下是引用关键下一秒在2013-1-25 17:35:00的发言：

你们是怎样测试的呢，我怎么测试就是有问题啊，能不能做不例子看看？我是放在窗口中的AfterLoad事件里的

我们用的是按钮测试的。

lin_hailun

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/26 9:19:00 [显示全部帖子]

以下是引用关键下一秒在2013-1-26 8:33:00的发言：

林总，请问idxs到底能承载多少个_Identify数据呢？数据太多会不会当掉？

数据量太大的话，会挂掉的，或者说，要相应的速度很慢。但是，你要筛选去除重复的话，只能通过这种方法了。

除非你在后台处理，用sql语句加载入符合你要求的那些行，用这种方法来模拟筛选。这样会快很多的。

又或者，这样写代码

Tables("订单").Filter = "单价 < 10"   '模拟筛选

'开始,产品和客户不重复的行
Dim idxs As String = ""
Dim prev_cp As String = ""
Dim prev_kh As String = ""
For Each dr As DataRow In DataTables("订单").Select(Tables("订单").Filter, "产品,客户")
    If prev_cp <> dr("产品") OrElse prev_kh <> dr("客户") Then
        idxs &= dr("_Identify") & ","
        prev_cp = dr("产品")
        prev_kh = dr("客户")
    Else
        dr.Remove()
    End If
Next

'Tables("订单").Filter = "_Identify in (" & idxs.Trim(",") & ")"