[求助]如何筛选两列的重复值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何筛选两列的重复值？

共有6771人关注过本帖树形打印复制链接主题：[求助]如何筛选两列的重复值？

kunge

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

加好友

发短信

等级：幼狐帖子：151 积分：1254 威望：0 精华：0 注册：2012/5/29 16:50:00

[求助]如何筛选两列的重复值？ 发帖心情

Post By：2013/7/19 21:34:00 [只看该作者]

订单详情表中，需要两列才能确定，是否重复？因为我是合并导入的数据，所以表事件无法解决。写代码不会，列比较多，麻烦！

我想先用Merger合并数据到表中，再筛选出重复值！删除。

问题是Tables("表A").RepeatFilter("第一列", 0) 只能筛选一列，我需要2列订单编号列，商品编号列，都重复，才能判定重复！

怎么写筛选代码呢？

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/7/19 23:23:00 [只看该作者]

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

土办法试试

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/7/20 8:29:00 [只看该作者]

可以筛选任意列数不重复的值。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:任意列数不重复值.table

kunge

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

加好友

发短信

等级：幼狐帖子：151 积分：1254 威望：0 精华：0 注册：2012/5/29 16:50:00

Post By：2013/7/20 14:27:00 [只看该作者]

楼上的高手！！！！！！问题解决

yan2006l

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

加好友

发短信

等级：一尾狐帖子：431 积分：3214 威望：0 精华：2 注册：2011/9/10 21:35:00

Post By：2013/7/20 17:35:00 [只看该作者]

完全看不懂4楼的例子啊，进去就是一张员工表

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/7/20 18:09:00 [只看该作者]

以下是引用yan2006l在2013-7-20 17:35:00的发言：
完全看不懂4楼的例子啊，进去就是一张员工表

代码在“表属性”的Click事件中。

在表中点击一下，就筛选出多列不重复的值。

我是为了省事，这样写。

可以写在菜单按钮或窗口按钮中。

yan2006l

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

加好友

发短信

等级：一尾狐帖子：431 积分：3214 威望：0 精华：2 注册：2011/9/10 21:35:00

Post By：2013/7/20 18:28:00 [只看该作者]

Dim str As New List (Of String)
Dim id As String
For Each r As Row In e.Table.Rows
    If str.Contains(r("职务") & ",,," & r("性别") & r("尊称")) = False Then
        str.Add(r("职务") & ",,," & r("性别") & r("尊称"))
        id + = r("_Identify") & ","
    End If
Next
e.Table.Filter = "_Identify In (" & id.Trim(",") & ")"
id.Trim

代码好复杂好经典，虽然看不懂，先复制来，回家研究个把月