【问】如何修改集合中Varient数组的内容？

VBAHZ 2006-03-24 07:50:35

比如：
Dim mCol As New Collection
mCol.Add Array(0,1)

请问，如何把 mCol(1)(1) 的内容（原来为1）改为 2

我知道把数组改成对象是一种方法，但觉得那它占资源，
出于多种目的考虑，决定还是使用数组，
所以就想问这种情况如何修改？

...全文

239 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

VBAHZ 2006-04-19

打赏
举报

VBAHZ 2006-03-30

打赏
举报

而且 DICTIONARY 的用法好像和Collection 不一样啊
很多时候只需要简单的加入数据而不必加Key，有时又是混合型的
取值的时候，有时要用Index 有时用 Key ，这些都是Collection的特色啊

据说，Collection里都是Variant型的，而V型除了数值外，其它类型的数据仅仅是存放一个指针而已？
那有没有办法通过修改这个指针的指针，从而达到修改其数据呢？

VBAHZ 2006-03-26

打赏
举报

那就是说，本主题是无解喽？
我原来想知道的只是如何修改Collection的内容

本来用Collection的原因就是简便（默认工程总是引用该库的），
现在还要引用外部库。。。还不如用自己的SuperCollection呢

诶。。。

VBAHZ 2006-03-26

打赏
举报

请问，在哪里？怎么用？

rainstormmaster 2006-03-26

打赏
举报

//请问，在哪里？怎么用？

你引用FSO即可看到
至于用法，词典和Collection类似

northwolves 2006-03-26

打赏
举报

先删后加

建议改用DICTIONARY对象,可读可写

homezj 2006-03-25

打赏
举报

Private Sub MidfCol(ColIndex As Long, ArrayIndex As Long, MidfValue As Variant)
Dim a() As Variant
a = mCol(ColIndex)
mCol.Remove ColIndex
a(ArrayIndex) = MidfValue
If ColIndex > mCol.Count Then
mCol.Add a
Else
mCol.Add a, ColIndex
End If
Debug.Print mCol(ColIndex)(ArrayIndex)
End Sub

VBAHZ 2006-03-25