Crystal Reports  

For/Next °j°é (Basic »yªk)

For/Next °j°é¥i¦h¦¸Åçºâ¤@²Õ³¯­z¦¡¡C³o»P If ©M Select ³¯­z¦¡¤£¦P¡A³o¨âºØ³¯­z¦¡¦bÅçºâ¤½¦¡®É¡Aµ{¦¡³Ì¦h¥u·|³q¹L¨C­Ó³¯­z¦¡¤@¦¸¡C

¦pªG¨Æ¥ýª¾¹D³¯­z¦¡»Ý­nÅçºâªº¦¸¼Æ¡A«h For/Next °j°é¬O³Ì¾A¥Îªº¡C

For °j°é»yªk

½d¨Ò¤@

°²³]±z·Q­n±N {«È¤á.¤½¥q¦WºÙ} ¦r¦ê¤ÏÂà¹L¨Ó¡A¨Ò¦p¡A±N City Cyclists Åܦ¨ stsilcyC ytiC¡C

Rem ¤ÏÂà¦r¦êª©¥» 1
formula = ""
Dim strLen
strLen = Len ({«È¤á.¤½¥q¦WºÙ})
Dim i
For i = 1 To strLen
Dim charPos
charPos = strLen - i + 1
formula = formula & _
Mid({Customer.Customer Name}, charPos, 1)
Next i

°²³] {«È¤á.¤½¥q¦WºÙ} Äæ¦ì¥Ø«eªº­È¬O Clean Air¡A½ÐÀˬd³o­Ó¤½¦¡¦p¦ó¹B§@¡C¤w±NÅÜ¼Æ strLen «ü¬£¬° Clean Air ¦r¦êªºªø«×¡A¤]´N¬O 9¡C¦¹®É¦¹ÅܼƤ]¦¨¬°¼Æ¦r«¬§O¡CÅÜ¼Æ i ¤]ºÙ¬° For ­p¼Æ¾¹ÅܼơA¦]¬°¨ä¼Æ­È·|ÀHµÛ¨C¦¸ For °j°éªº­«½Æ¦Ó§ïÅÜ¡C¤]´N¬O»¡¡A¥¦¬O¥Î¨Ó­pºâ°j°éªº»¼°j¦¸¼Æ¡CFor °j°é·|­«½Æ¶i¦æ 9 ¦¸¡A²Ä¤@¦¸®É i ¬O 1¡AµM«áÅܦ¨ 2¡B3¡A¨Ã¤@ª½¼W¥[¡Aª½¨ì i = 9 ¬°¤î¡C¦b²Ä¤@¦¸¶i¦æ°j°é®É¡A{«È¤á.¤½¥q¦WºÙ} ªº²Ä¤E­Ó¦r¤¸·|³Q¥[¨ìªÅªº¯S®íÅܼƤ½¦¡¤¤¡C²Ä¤@¦¸°j°é§¹¦¨®É¡Aformula µ¥©ó r¡C¶i¦æ¨ì²Ä¤G¦¸°j°é®É¡A·|±N {«È¤á.¤½¥q¦WºÙ} ªº²Ä¤K­Ó¦r¤¸ªþ¥[¨ì formula ¤¤¡A¦]¦¹ formula ´Nµ¥©ó ri¡C³o­Óµ{§Ç·|«ùÄò¶i¦æ¡Aª½¨ì²Ä¤E¦¸°j°é§¹¦¨«á formula µ¥©ó riA naelC ¬°¤î¡A³o­Ó­È¤]´N¬O¤ÏÂ઺¦r¦ê¡C

½d¨Ò¤G

³o­Ó½d¨Ò¬O¤W­z¤½¦¡ªºÂ²¤Æª©¥»¡A¨Ï¥Î Step ¤l¥y¡A¨Ã¥B¥]§t­tªº Step ­È –1¡C¦b Clean Air ½d¨Ò¤¤¡A²Ä¤@¦¸»¼°j®É i ¬O 9¡A²Ä¤G¦¸¬O 8¡A²Ä¤T¦¸¬O 7 ¨Ì¦¹Ãþ±À¡Aª½¨ì³Ì«á¤@¦¸»¼°j«áÅܦ¨ 1 ¬°¤î¡C

Rem Reverse a string version 2
formula = ""
Dim i
For i = Len ({«È¤á.¤½¥q¦WºÙ}) To 1 Step -1
formula = formula + _
Mid({Customer.Customer Name}, i, 1)
Next i

½d¨Ò¤T

³o­Ó³Ì²¤Æªºª©¥»¬O¨Ï¥Î¤º«Ø¨ç¦¡ StrReverse¡G

Rem Reverse a string version 3
formula = StrReverse ({«È¤á.¤½¥q¦WºÙ})

¦b Crystal Reports ¤¤¡A¤º«Ø¦r¦ê¨ç¦¡¥i¥H±±¨î³\¦h¶Ç²Î¤W¬O¥H For/Next °j°é©Î¨ä¥L°j°é¨Ó³B²zªº¦r¦ê³B²zÀ³¥Îµ{¦¡¡CµM¦Ó¡AFor/Next °j°éÁÙ¬O¦b³B²z¦r¦ê©M°}¦C®É³Ì¨ã¼u©Êªº¦³®Ä¤èªk¡C¦pªG¤º«Øªº¨ç¦¡¨S¦³±z­nªº®ÄªG®É¡A°j°éªºÀ³¥Î´NÅܱo«Ü­«­n¡C

½Ð°Ñ¾\

For/Next °j°é½d¨Ò | µ²§ô For/Next °j°é