关于list项目排除相同项目的问题|||在线等待|||

Question

本帖最后由 Csdsn9527 于 2009-07-01 22:29:47 编辑

Answer 1

笨办法就是弄到数组里面处理后重新load到list上面

Answer 2

第一时间想到的办法
dim strAddItem as string  '你要添加的新的项
'stradditem=....          给strAddItem赋值
dim lngP as long
lngP=0
do
    if list1.list(lngP)=strAddItem then exit do
    lngP=lngP+1
loop until lngP>list1.listcount-1
if lngP<list1.listcount then list1.additem stradditem

Answer 3

Dim i As Long, j As Long
For i = 0 To List1.ListCount - 1
    For j = List1.ListCount - 1 To i + 1 Step -1
        If List1.List(i) = List1.List(j) Then List1.RemoveItem j
    Next
Next