| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 925 人关注过本帖, 1 人收藏
标题:LIST1和LIST2对比
只看楼主 加入收藏
dwh2005
Rank: 1
等 级:新手上路
帖 子:18
专家分:7
注 册:2008-3-1
收藏(1)
 问题点数:0 回复次数:7 
LIST1和LIST2对比
LIST1和LIST2对比,找出LIST1在LIST2中没有的,然后加到LIST3中

LIST1中的内容
list1.list(0)="张三"
list1.list(1)="李四"
list1.list(2)="小明"

LIST2中的内容
list2.list(0)="小李"
list2.list(1)="张三"
list2.list(2)="李四"

COMMAND1代码
Private Sub Command1_Click()
Dim a, b

For a = 0 To List1.ListCount - 1
  For b = 0 To List2.ListCount - 1
   
    If List1.List(a) <> List2.List(b) Then
       List3.AddItem List1.List(a)
    End If
  Next
  Next

End Sub

现在是点了COMMAND1 LIST3中有相同的
LIST3中的内容
list3.list(0)="张三"
list3.list(1)="张三"
list3.list(2)="李四"
list3.list(3)="李四"
list3.list(4)="小明"
list3.list(5)="小明"
list3.list(6)="小明"

我想要的结果是:LIST3
应该只有
list3.list(0)="小明"

不知道怎么写代码,小弟是新手,想了3天也没有想到。
搜索更多相关主题的帖子: LIST 
2008-04-25 00:15
dwh2005
Rank: 1
等 级:新手上路
帖 子:18
专家分:7
注 册:2008-3-1
收藏
得分:0 
没有人回复我,还是我没有表达清楚???
2008-05-03 00:21
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
你算法有问题,你再想想。
2008-05-03 09:02
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
Private Sub Command1_Click()
Dim a, b,flag
flag=0
For a = 0 To List1.ListCount - 1
  For b = 0 To List2.ListCount - 1
    If List1.List(a) = List2.List(b) Then
       flag=1
    End If
  Next
  if flag=0 then
    List3.AddItem List1.List(a)
  end if
 Next
End Sub
这段应该就行了,我没试

你笑我和你们不一样,我笑你们大家都一样~
2008-05-03 11:27
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
反正List3.AddItem 的执行次数应该是某个List的ListCount,或者更少
2008-05-03 13:00
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
突然发现上面错了应该是这个
Private Sub Command1_Click()
Dim a, b,flag
For a = 0 To List1.ListCount - 1
  flag=0
  For b = 0 To List2.ListCount - 1
    If List1.List(a) = List2.List(b) Then
       flag=1
    End If
  Next
  if flag=0 then
    List3.AddItem List1.List(a)
  end if
Next
End Sub

你笑我和你们不一样,我笑你们大家都一样~
2008-05-03 15:14
dwh2005
Rank: 1
等 级:新手上路
帖 子:18
专家分:7
注 册:2008-3-1
收藏
得分:0 
谢谢 wangtuan7788 和所有给我回复的朋友.
2008-05-05 00:03
zougonghua
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-4-1
收藏
得分:0 
回复 6# 的帖子
思路很好,学习..
2008-05-05 09:46
快速回复:LIST1和LIST2对比
数据加载中...
 
   



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

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