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
½d¨Ò¤@
°²³]±z·Qn±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¤Wz¤½¦¡ªºÂ²¤Æª©¥»¡A¨Ï¥Î Step ¤l¥y¡A¨Ã¥B¥]§ttªº 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¦³±znªº®ÄªG®É¡A°j°éªºÀ³¥Î´NÅܱo«Ü«n¡C