*************小弟在处理LISTBOX中的数据时,写了如下代码以删除其中重复的数据,但始终不好使,为什么?*************来者有分!!!!!!!

[questions21cn]

小弟在处理LISTBOX中的数据时,写了如下代码以删除其中重复的数据,但始终不好使,为什么?
哪位大侠帮我看看是哪错了?或给我一个新的方法! 先谢了!

With List3
If .ListCount > 1 Then
i = 0
While i < .ListCount
j = 0
While j < .ListCount And i <> j
If .List(i) = .List(j) Then
.RemoveItem j
End If
j = j + 1
Wend
i = i + 1
Wend
End If
End With

[chenhw]

再.RemoveItem j后加上i=i-1就可以了.

[dotnba]

With List3
If .ListCount > 1 Then
i = 0
While i < .ListCount
j = i + 1
While j < .ListCount
If .List(i) = .List(j) Then
.RemoveItem j
End If
j = j + 1
Wend
i = i + 1
Wend
End If
End With
//只是优化了一下，但是没变实质的东西！

[questions21cn]

多谢chenhw(我要回复)! 搞定了.....
为什么这么写?

[jack_zhan]

循环变量有问题
RemoveItem之后本来是后一项的现在为当前项,你再j = j + 1,i = i + 1
就错过了这一项.
所以在RemoveItem之后,加上j = j - 1,i = i - 1来保持不漏项