Dictionary对象的add方法的问题？？

szwbluesky

Public Function closeCurPt(ByVal ptOpenPit As Variant, _
ByRef segOpenPit As Variant) As Variant
Dim couArr, couSeg ' As Integer
couArr = 0
couSeg = 0 ........... segOpenPit.Add couSeg, couArr ........... 其中，segOpenPit 是Dictionary对象，调试 segOpenPit.Add couSeg, couArr时说 “运行时错误‘424’：要求对象”。 帮看看，多谢！

szwbluesky

不好意思，找到原因了，是参数传错了。


想把该贴删掉，删不掉！


麻烦版主帮忙删一下！