- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何筛选两列的重复值？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38116)
-- 发布时间：2013/7/19 21:34:00
-- [求助]如何筛选两列的重复值？
订单详情表中，需要两列才能确定，是否重复？因为我是合并导入的数据，所以表事件无法解决。写代码不会，列比较多，麻烦！
我想先用Merger合并数据到表中，再筛选出重复值！删除。
问题是Tables("表A").RepeatFilter("第一列",
0) 只能筛选一列，我需要2列 订单编号列，商品编号列， 都重复，才能判定重复！
怎么写筛选代码呢？
-- 发布时间：2013/7/19 23:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
土办法试试
-- 发布时间：2013/7/20 8:29:00
--
可以筛选任意列数不重复的值。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:任意列数不重复值.table |
-- 发布时间：2013/7/20 14:27:00
--
楼上的高手！！！！！！问题解决
-- 发布时间：2013/7/20 17:35:00
--
完全看不懂4楼的例子啊，进去就是一张员工表
-- 发布时间：2013/7/20 18:09:00
--
以下是引用yan2006l在2013-7-20 17:35:00的发言：
完全看不懂4楼的例子啊，进去就是一张员工表
完全看不懂4楼的例子啊，进去就是一张员工表
代码在“表属性”的Click事件中。
在表中点击一下，就筛选出多列不重复的值。
我是为了省事，这样写。
可以写在菜单按钮或窗口按钮中。
-- 发布时间：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
代码好复杂好经典，虽然看不懂，先复制来，回家研究个把月
-- 发布时间：2013/7/21 17:38:00
--
完全看不懂代码,但结果看來很有用
把职务,性別和尊称都重复的隐藏了
[此贴子已经被作者于2013-7-21 17:39:09编辑过]
-- 发布时间：2013/7/21 19:27:00
--
放到菜单里怎么不行啊
-- 发布时间：2013/7/21 19:31:00
--
以下是引用kunge在2013-7-21 19:27:00的发言：
放到菜单里怎么不行啊
放到菜单里怎么不行啊
代码要相应的变一变，e.Table 改成 Tables("员工")