Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选显示重复的数据


  共有1854人关注过本帖树形打印复制链接

主题：筛选显示重复的数据
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		筛选显示重复的数据  发帖心情 Post By：2017/7/18 17:38:00 [显示全部帖子]

窗口中的表Table1是A表的副本，现要查找表中【产品编号】列和【批号】列内容都相同的行，并且同产品编号的商品在一起显示。
例如：
产品编号     批号        （表中还有多列，在此省略）
C0001       PH111
C0001       PH111
C0001       PH111
C0008       PH222
C0008       PH222
...............
先谢了！
（另，数据有上千条以上之多。）

[此贴子已经被作者于2017/7/18 17:38:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/7/18 18:28:00 [显示全部帖子]

看不懂  按代码修改后 也不行，还是麻烦老师帮帮忙，辛苦帮我写下代码。不胜感激！

 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/7/18 20:00:00 [显示全部帖子]

相当于：一、Tables("窗口1_Table1").RepeatFilter("产品编号", 0)  and Tables("窗口1_Table1").RepeatFilter("批号", 0)
           二、对上面筛选出来的结果再把同“产品编号”的商品挨在一起排列。
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/7/18 20:40:00 [显示全部帖子]

这是完整的代码，点击按钮无反应。
Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "产品编号,批号"
For Each dr As DataRow In Tables("计划来货登记表查询主窗口_Table1").DataTable.Select("", cs)
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
    End If
    If flag Then
        If count > 1 Then
            idx &= idx_temp
        End If
        count = 1
        idx_temp = ""
    Else
        count += 1
        idx_temp &= dr("_Identify") & ","
    End If    
    pdr = dr
Next
If count > 1 Then
    idx &= idx_temp
End If
Tables("计划来货登记表查询主窗口_Table1").Filter = "_Identify not in (" & idx.trim(",") & ")"
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/7/18 21:24:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:显示重复并排序.zip
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/7/18 22:16:00 [显示全部帖子]

大神，收下我的膝盖吧 ，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/7/18 22:28:00 [显示全部帖子]

晕了 大神   怎么是Remove啊 晕了晕了  我的意思是筛选显示，不是删除，我的数据！！！！

 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7921 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/7/18 22:34:00 [显示全部帖子]

谢谢 谢谢  谢谢   吓死宝宝了 非常感谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询