| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1605 人关注过本帖
标题:如何去掉重复的记录
只看楼主 加入收藏
kaihua
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2004-11-26
结帖率:66.67%
收藏
 问题点数:0 回复次数:5 
如何去掉重复的记录
如图    如何 去掉LIST 中 重复的记录

         如何计算 每种重复的记录 有多少条

未命名1233.JPG (8.42 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 记录 
2008-11-28 14:25
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
哎,字符串比较呗

偶是菜鸟鸟偶惧WHO?!!!!
2008-11-28 14:29
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
收藏
得分:0 
遍历一次列表

计算重复个数用集合 Collection
key 为你列表项  Item为个数

个数>1的就删除,去掉重复的.

[[it] 本帖最后由 simpson 于 2008-11-28 14:53 编辑 [/it]]

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2008-11-28 14:31
红影
Rank: 1
等 级:新手上路
威 望:2
帖 子:659
专家分:0
注 册:2006-2-22
收藏
得分:0 
VBGood里有人已经回复给楼主了
方法如下

'方法1引用 Microsoft Scripting Runtime

    Dim dic As Dictionary
    Dim tmp
    Dim i As Long
   
    Set dic = New Dictionary
   
    For i = 0 To List1.ListCount - 1
        tmp = List1.List(i)
        If dic.Exists(tmp) Then
            dic.Item(tmp) = dic.Item(tmp) + 1
        Else
            dic.Add tmp, 1      '第一个
        End If
    Next
   
    For Each tmp In dic
        Debug.Print tmp & "=" & dic.Item(tmp)
    Next
   
    set dic=nothing

'方法2纯字符串函数的方法:

    Dim i As Long
    Dim s As String, tmp As String
    ReDim myArray(List1.ListCount - 1)
   
    For i = 0 To List1.ListCount - 1
        myArray(i) = List1.List(i)
    Next
   
    s = "/" & Join(myArray, "//") & "/"
    Do
        tmp = "/" & Split(s, "/",3)(1) & "/"
        Debug.Print tmp & UBound(Split(s, tmp))
        s = Replace(s, tmp, "")
    Loop While Len(s)

生命中,不断有人离开和进入。于是,看见的,看不见了;记住的,遗忘了。
2008-11-28 15:44
kaihua
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2004-11-26
收藏
得分:0 
谢谢 大家
2008-11-28 16:03
hbutwzc
Rank: 1
等 级:新手上路
威 望:2
帖 子:376
专家分:0
注 册:2008-6-17
收藏
得分:0 
select distinct 字段 from 表
就可以除去重复的
2008-11-28 18:36
快速回复:如何去掉重复的记录
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017537 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved