以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请诸位前辈大侠帮我看一下代码错在哪里？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33048)
--  作者：xfilemark
--  发布时间：2013/5/12 17:24:00
--  请诸位前辈大侠帮我看一下代码错在哪里？
If nlist.Count > 2
    Dim i As Integer
    For  = 1 To nlist.Count - 1
        If nlist(0)("name") = nlist(i)("name") Then
            nlist.RemoveAt(i)
        End If
    Next
End If
[此贴子已经被作者于2013-5-12 17:24:53编辑过]
--  作者：sloyy
--  发布时间：2013/5/12 17:29:00
--  
If nlist.Count > 2
    Dim i As Integer
    For  i= 1 To nlist.Count - 1
        If nlist(i)("name") = nlist(i+1)("name") Then
            nlist.RemoveAt(i)
        End If
    Next
End If
--  作者：xfilemark
--  发布时间：2013/5/12 17:50:00
--  
非常感谢 sloyy，问题解决了！