我用set把一个数组的内容赋值给另一个数组，为什么一旦一个改变另一个也改变？

renahu

这两个数组被设置成共有变量，是不是赋值方法不对？

renahu

Public d, dd
''''''''''''''''''
Set dd = d
虽然赋值成功，但后面只要改了d，dd也同样改变

liulang0808

renahu 发表于 2022-12-17 14:22
Public d, dd
''''''''''''''''''
Set dd = d

指向同一个地址。。。。。？

renahu

liulang0808 发表于 2022-12-17 14:24
指向同一个地址。。。。。？

没有吧，只要不用这个 Set dd = d 就正常用没问题，各自独立的，奇怪了，一用这句发现居然同步了

renahu

liulang0808 发表于 2022-12-17 14:24
指向同一个地址。。。。。？

另外我是用在VB里，不知道是不是有影响

renahu

liulang0808 发表于 2022-12-17 14:24
指向同一个地址。。。。。？

1. Public d, dd
   
2. 
   
3. Sub test()
   
4. Dim i%, ar, br
   
5. Set d = CreateObject("scripting.dictionary")
   
6. Set dd = CreateObject("scripting.dictionary")
   
7. ar = Array("张三", "李四", "王五", "赵六", "韩七")
   
8. 'br = Array("张三三", "李四四", "王五五", "赵六六", "韩七七")
   
9. For i = 0 To UBound(ar)
   
10.     d(ar(i)) = i
    
11. Next
    
12. Set dd = d
    
13. 'For i = 0 To UBound(ar)
    
14. '    d(br(i)) = i
    
15. 'Next
    
16. d.RemoveAll
    
17. End Sub
    
18. 原来VBA里也一样

复制代码

renahu

liulang0808 发表于 2022-12-17 14:24
指向同一个地址。。。。。？

网上搜了一下只能
for each k in dicta.keys
  dictb(k)=dicta(k)
next

joforn

Set dd = d
表示：
将D指针所指向的内存地址内的Object指针赋值给DD。
Object指针指向一块内存，其中存储了对象所有属性方法查询接口，函数入口及内部数据块等等。

joforn

如果需要创建一个新的对象，应该使用New而不是Set，或是Let。
另外，数组应该使用Let而不是Set，Set只能针对Object类型的变量操作，对任何非Object类型变量使用Set，将会编译错误，使用整个工程无法运行。

chxw68

renahu 发表于 2022-12-17 15:15

这是字典，不是数组。