none
二维动态数组添加数据求教高手,谢谢!!! RRS feed

  • 问题

  • 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"

    请教高手该如何做,谢谢!!!

     

    2010年8月25日 3:53

答案

  • 你好

    這些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
    2010年8月25日 4:51

全部回复

  • 你好

    這些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
    2010年8月25日 4:51
  • 谢谢你的帮助,谢谢!!!
    2010年8月25日 8:50