二维动态数组添加数据求教高手，谢谢！！！

Question

dim szsj(,) as string 

redim szsj(3,2)

szsj(0,1)="01"

szsj(0,2)="02"

szsj(1,1)="21"

szsj(1,2)="22"

szsj(2,1)="06"

szsj(2,2)="07"

现在我想添加数据变为：

redim szsj(4,2)

szsj(0,1)="01"

szsj(0,2)="02"

szsj(1,1)="21"

szsj(1,2)="22"

szsj(2,1)="06"

szsj(2,2)="07"

szsj(3,1)="24"

szsj(3,2)="34"

请教高手该如何做，谢谢！！！

 

Answer 1

你好

這些Code 好像沒有問題

可不可以說說你遇到什麼問題?

如果你希望在REDIM 後可以保留已有的ARRAY 值你可以嘗試以下的CODE

im szsj(,) as string 

redim szsj(2,3)

szsj(1,0)="01"

szsj(2,0)="02"

szsj(1,1)="21"

szsj(2,1)="22"

szsj(1,2)="06"

szsj(2,2)="07"

现在我想添加数据变为：

redim Preserve szsj(2,4)

szsj(1,3)="24"

szsj(2,3)="34"

或嘗試用Array/ List等

Please forgive me if I mis-understood your questions.

 

---

Chi

Answer 2

谢谢你的帮助，谢谢！！！