ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý]¡@Type »P ¦hºû«×°}¦C¤§ Redim

[µo°Ý]¡@Type »P ¦hºû«×°}¦C¤§ Redim

' ¦b type ¸Ìªº¦hºû°}¦C¡A¦b­«·s Redim ¦hºû°}¦C¤j¤p®É¡A·|¥X¿ù¡F½Ð°Ý­n¦p¦ó­×¥¿©O¡H

Public Type  t
   Amount() As Double                     
   PriceAry(1, 1)  as Double  ' ¦³¸ÕµÛ±N¦¹¦æ §ï¦¨ PriceAry()() as Double ©Î PriceAry(,) as Double ¡A³£·|¥X¿ù
End type

Dim  a(2) as t

Public sub s()
   With a(1)
              redim .Amount(10)
              redim .PriceAry(1 to 10, 1 to 10) ' ³o¦æ·|¥X¿ù¡A½Ð°Ý­n¦p¦ó§ïÅܰ}¦C¤j¤p©O¡H
   End with
End  sub

¤v¸Ñ¨M.

½Ð§ï¥Î PriceAry()  «Å§i¡A¤£ºÞ PriceAry() ³Q Redim ¦h¤Öºû«×°}¦C¡C

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD