Crystal Reports  

If ³¯­z¦¡ (Basic »yªk)

If ³¯­z¦¡¬O³Ì¦³¥Îªº±±¨îµ²ºc¤§¤@¡C¥¦¥i¦b¬Y±ø¥ó¬° True ®É¡A¥Î¨ÓÅçºâ¤@²Õ³¯­z¦¡¡F¦Ó¬Y±ø¥ó­Y¬° False¡A«hÅçºâ¤£¦P²Õªº³¯­z¦¡¡C

ª`·N   ·í®æ¦¡¤Æ±ø¥ó¦¡¤½¦¡®É¡A½Ð¤@©w­n¨Ï¥Î ElseÃöÁä¦r¡A§_«h¤£²Å¦X If ±ø¥óªº¼Æ­È¥i¯à¤£·|«O«ù­ì©lªº®æ¦¡¡C­Y­nÁ×§Kµo¥Í³oºØ±¡ªp¡A½Ð¨Ï¥Î DefaultAttribute ¨ç¦¡ (If...Else formula = DefaultAttribute)¡C

½d¨Ò

¬Y¤½¥q­pµe´£¼· 4% ªº¬õ§Qµ¹­û¤u¡A¦ý¾P°â³¡ªùªº­û¤u±N¥i±o¨ì 6%¡C¤U¦C¤½¦¡¨Ï¥Î If ³¯­z¦¡¨Ó°õ¦æ³o¶µ¥ô°È¡G

Rem ¦h¦æ If ½d¨Ò 1
If {­û¤u.³¡ªù} = "Sales" Then
formula = {­û¤u.Á~¤ô} * 0.06
Else
   formula = {Employee.Salary} * 0.04
End If

¦b¥»½d¨Ò¤¤¡A¦pªG±ø¥ó {Employee.Dept} = "Sales" Åçºâ¬° True¡A«h·|°õ¦æ

formula = {­û¤u.Á~¤ô} * 0.06

³¯­z¦¡¡C§_«h·|³B²z Else ¤§«áªº³¯­z¦¡¡A¤]´N¬O

formula = {Employee.Salary} * 0.04

¡C

°²©w¥t¤@®a¤½¥q­n´£¼· 4% ªº¬õ§Q (³Ì¤Ö $1,000) µ¹­û¤u¡C½Ðª`·N½d¨Ò¤¤¨Ã¥¼¥]§t Else ¤l¥y¡A¦]¬° Else ¤l¥y¬O¿ï¾Ü©Êªº¡A¦b¦¹³B¨Ã¤£»Ý­n¡C

Rem Multi-line If example 2
formula = {Employee.Salary} * 0.04
If formula < 1000 Then
   formula = 1000
End If

²{¦b°²©w«e­z¤½¥qÁÙ­n±N¬õ§Qªº³Ì°ª¤W­­­q¬° $5,000 ¤¸¡C²{¦b»Ý­n¨Ï¥Îªº¬O ElseIf ¤l¥y¡C½Ðª`·N ElseIf ¥u¦³¤@­Ó¦r¡C¥H¤U½d¨Ò¥u¦³¤@­Ó ElseIf ¤l¥y¡A¥i¬O±z¥i¥H¨Ì»Ý­n¥ô·N¥[²K¡C

ª`·N   ¨C­Ó If ³¯­z¦¡³Ì¦h§¡¥u¯à¦³¤@­Ó Else ¤l¥y¡C

¦pªG If ©Î ElseIf ±ø¥ó§¡¤£¬° True¡AElse ¤l¥y´N·|°õ¦æ¡C

Rem Multi-line If example 3
formula = {Employee.Salary} * 0.04
If formula < 1000 Then
   formula = 1000
ElseIf formula > 5000 Then
   formula = 5000
End If

½d¨Ò

°²³]¬Y¤½¥q·Q­n­pºâ¨C¦ì­û¤uµ|´Úªº¦ô­p­È¡A¨ÃÅã¥Ü¾A·íªº°T®§¡C¦¬¤J¦pªG§C©ó $8,000 ¤¸«h¤£¥Îúµ|¡A¦¬¤J¦b $8,000 ¨ì $20,000 ¤¸¤§¶¡ªº»Ýú¯Ç 20% ªºµ|´Ú¡A¦¬¤J¦b $20,000 ¨ì $35,000 ¤¸¤§¶¡ªº»Ýú¯Ç 29% ªºµ|´Ú¡A¦Ó $35,000 ¤¸¥H¤W¦¬¤JªÌ»Ýúµ| 40% ªºµ|´Ú¡C

Rem Multi-line If example 4
Dim tax As Currency, income As Currency
income = {­û¤u.Á~¤ô}
Dim message As String
If income < 8000 Then
   tax = 0
   message = "§Kµ|"
ElseIf income >= 8000 And income < 20000 Then
   message = "³Ì§C"
   tax = (income - 8000)*0.20
ElseIf income >= 20000 And income < 35000 Then
   message = "¤¤µ¥"
   tax = (20000 - 8000)*0.20 + (income - 20000)*0.29
Else
   message = "³Ì°ª"
   tax = (20000 - 8000)*0.20 + (35000 - 20000)*0.29 + _
(income - 35000)*0.40
End If
Dim taxStr As String
Rem ¨Ï¥Î¤G¦ì¤p¼Æ
Rem ¨Ï¥Î³r¸¹°µ¬°¤d¤À¦ì¤À¹j²Å¸¹
taxStr = CStr (tax, 2, ",")
formula = "±zÄÝ©ó " & message & _
" ¯Çµ|µ¥¯Å¡C " & _
"±zªº¹w¦ôµ|ÃB¬° " & taxStr & "¡C"

½Ðª`·N¡A¤W¨Ò¤¤¨Ï¥ÎÅܼƨÓ²¤Æ­pºâªºÅÞ¿è¡C¦¹¥~¡Aª`·N¨ì¦b¬Y­Ó±ø¥ó²Å¦X®É¡A·|°õ¦æ¨â­Ó³¯­z¦¡¡G¤@­Ó«ü¬£ tax ÅܼơA¥t¤@­Ó«ü¬£ message ÅܼơC¦b²Å¦X¤@­Ó±ø¥ó®É°õ¦æ¦h­Ó³¯­z¦¡±ø¥ó¬O«Ü¦³¥Îªº§@ªk¡C

½Ð°Ñ¾\

±±¨îµ²ºc | ³æ¦æ©M¦h¦æ If ³¯­z¦¡