Crystal Reports  

«Å§i°}¦CÅÜ¼Æ (Basic »yªk)

¦³¼ÆºØ«Å§i°}¦CÅܼƪº¤èªk¡C²Ä¤@ºØ¤èªk¬O¨Ï¥ÎªÅ¥Õªº¬A¸¹¡A¨Ã©ú½T«ü©w°}¦Cªº«¬§O¡G

'«Å§i x ¬°¥þ°ìÅܼÆ
'«¬§O¬°¼Æ¦r°}¦C
Global x () As Number
'±Ò©l x
x = Array (10, 20, 30)
'«Å§i y ¬° Shared ÅܼÆ
'«¬§O¬°¦r¦ê½d³ò°}¦C
Shared y () As String Range
'°_©l y
y = Array ("A" To "C", "H" To "J")

²Ä¤GºØ¤èªk¬O«Å§iÅܼơA¦ý¤£±N¸ÓÅܼƫü©w¬°°}¦C¡A¤]¤£«ü©w«¬§O¡A¦Óµ¥«ÝÅܼƪº²Ä¤@¦¸«ü¬£¤u§@§¹¦¨«¬§Oªº«ü©w¤u§@¡G

'«Å§i y ¬°°Ï°ìÅܼÆ
'¦ýµLªk«ü©w¨ä«¬§O
Dim y
'y ªº«¬§O²{¦b³]¬°¦r¦ê°}¦C
y = Array ("Sun", "Mon", "Tue", "Wed", "Th", _
"Fri", "Sat")

²Ä¤TºØ¤èªk¬O±NÅܼƫŧi¬°°}¦C¡A¦ý¤£§¹¥þ«ü©w¨ä«¬§O¡Aµ¥«Ý²Ä¤@¦¸«ü¬£¤u§@¨Ó«ü©w«¬§O¡C«ùÄò¤W­z y ªº«Å§i¡G

'«Å§i z ¬°°}¦C°Ï°ìÅܼÆ
Local z()
'z ³]¬°°}¦C ("Mon", "Tue") ¦P®É¬°¦r¦ê°}¦C
z = y(2 to 3)

²Ä¥|ºØ¤èªk¬O¦b«Å§iÅܼƮɡA©ú½T¦a«ü©w°}¦Cªº¤j¤p¡C¦pªG¨Ï¥Î³oºØ§Þ¥©¡A°}¦C·|¦Û°Ê«Ø¥ß¡A¥B¥Î¹w³]­È¶ñº¡¡C¨Ò¦p¡A¥H¼Æ¦r°}¦C¦Ó¨¥¡A¨C­Ó¤¸¯À³£·|ªì©l¤Æ¬° 0¡F¦Ó¦pªG¬O¦r¦ê°}¦C¡A«h¨C­Ó¤¸¯À³£·|ªì©l¤Æ¬°ªÅ¥Õªº¦r¦ê ""¡C¦]¬°³oºØ«Å§i¤è¦¡·|½T¹ê«Ø¥ß°}¦C¡A©Ò¥H¥²¶·¨Ï¥Î As ¤l¥y¨Ó«ü©w¨ä«¬§O¡A¥H¨Ñ Crystal Reports §PÂ_¸Ó°}¦C»Ý­n¦h¤ÖÀx¦sªÅ¶¡¡C

Dim a(2) As String
'¬°°}¦C a ªº²Ä¤@­Ó¤¸¯À«ü©w¼Æ­È
a(1) = "good"
a(2) = "bye"
'& ¹Bºâ¤l¥i¥H¥Î¨Ó¦êÁp¦r¦ê
'¤½¦¡·|¶Ç¦^¦r¦ê "goodbye"
formula = a(1) & a(2)

«ü¬£¼Æ­Èµ¹°}¦Cªº¤¸¯À

±z¥i¥H«ü¬£°}¦C¤¸¯Àªº­È¡A¤]¥i¥H¥Î³o¨Ç­È¨Ó¶i¦æ¨ä¥L­pºâ¡C

Global x() As String
x = Array ("hello", "bye", "again")
'²{¦b x ¬O°}¦C ("hello", "once", "again")
x (2) = "once"
'¥H¤U¹Bºâ¦¡¦p¤£¼Ð°O¬°¤£¤©°õ¦æ
'±N·|³y¦¨¿ù»~¡A¦]¬°³¯¦Cªº¤j¤p¬° 3
'x (4) = "zap"
'¤½¦¡¶Ç¦^¦r¦ê "HELLO"
formula = UCase (x (1))

Redim ©M Redim Preserve ÃöÁä¦r¥i¥H¥Î¨Ó­«½Õ°}¦Cªº¤j¤p¡A³o¹ï©ó¦b°}¦C¤¤¥[¤JÃB¥~¸ê°T«Ü¦³¥Î¡CRedim ·|¦b½Õ¾ã°}¦Cªº¤j¤p¤§«e¡A¥ý²M°£°}¦C¤¤­ì¨Óªº¤º®e¡A¦Ó Redim Preserve «h·|«O¦s­ì¨Óªº¤º®e¡C

Dim x () As Number
Redim x (2) '²{¦b x ¬O°}¦C (0, 0)
x (2) = 20 '²{¦b x ¬O°}¦C (0, 20)
Redim x (3) '²{¦b x ¬O°}¦C (0, 0, 0)
x (3) = 30 '²{¦b x ¬O°}¦C (0, 0, 30)
Redim Preserve x (4) '²{¦b x ¬O°}¦C (0, 0, 30, 0)
formula = "§¹¦¨"

°}¦C»P For/Next °j°é

°}¦C±`»P For/Next °j°é¤@°_¨Ï¥Î¡C¤U¦Cªº½d¨Ò¤¤¨Ï¥Î For/Next °j°é¨Ó«Ø¥ß¨Ã¨Ï¥Î°}¦C Array (10, 20, 30, ..., 100)¡C

Dim b (10) As Number
Dim i
For i = 1 To 10
b(i) = 10 * i
Next i
formula = b(2) '¤½¦¡¶Ç¦^¼Æ¦r 20

¥i¥H¦b³æ¤@ªº³¯­z¦¡¤¤«Å§i¼Æ­ÓÅܼơA¥u­n«Å§i¤§¶¡¥H³r¸¹¬Û¹j§Y¥i¡C

½Ð°Ñ¾\

For/Next °j°é