wshzw

我想最后 myColl 中的数据不重复，如下代码会出现错误号:457
我不知如何修改才能达到要求，请求帮助，谢谢！

Private Sub Form_Load()
   Dim myFile, i&, myColl As New Collection
   On Error Resume Next
   myFile = Split("A,B,C,A,B,D", ",")
   
   For i = 0 To UBound(myFile)
      myColl.Add Item:=myFile(i), Key:=myFile(i)
   Next i
End Sub

风雨声中

myColl.Add Item:=myFile(i), Key:=myFile(i)
这句话有问题吧，VB没有这样的语法。

Nothing

myColl.Add myFile(i),myFile(i)

wshzw

谢谢两位的回复！
To 风雨声中:
问题是在 VBA 中，1 楼的语句可以通过，在 VB 中却不行，请问在 VB 中该如何写才能取唯一呢？谢谢！

To Nothing:
你指点的写法我之前有试过，我的测试结果是：两种写法效果一样。
请继续指点，谢谢！

风雨声中

你加上自己判断的 if语句不就行了.<

wshzw

再次感谢 风雨声中 的帮助！

由于不知什么时候选错了一个选项，现在改：
工具—>选项—>通用—>发生错误时中断
为：
工具—>选项—>通用—>遇到未处理的错误时中断
后。
一楼的代码就可以通过了.

再次感谢 Nothing 在二楼的帮助！