MasteringVFP/2/4/4

出自VFP Wiki

(修訂版本間差異)
跳轉到: 導航, 搜尋
(revert)
第42行: 第42行:
ENDCASE && 結束循環
ENDCASE && 結束循環
WAIT WINDOW rpt_title NOWAIT
WAIT WINDOW rpt_title NOWAIT
 +
[http://www.hg-fix.com/ 数据恢复]
 +
[http://www.hg-fix.com/ 硬盘数据恢复]
 +
[http://www.hg-fix.com/ 磁带数据恢复]
 +
[http://www.hg-fix.com/ raid数据恢复]
 +
[http://www.hg-fix.com/ 磁盘阵列数据恢复]
 +
[http://www.hg-fix.com/diskrecover.htm 数据恢复]
 +
[http://www.hg-fix.com/taperecover.htm 数据恢复]
 +
[http://www.hg-fix.com/raidrecover.htm 数据恢复]
 +
[http://www.hg-fix.com/ 数据修复]
 +
[http://www.hg-fix.com/ 硬盘数据修复]
 +
[http://www.hg-fix.com/ 磁带数据修复]
 +
[http://www.hg-fix.com/ raid数据修复]
 +
[http://www.hg-fix.com/diskrecover.htm 数据修复]
 +
[http://www.hg-fix.com/raidrecover.htm 数据修复]
 +
[http://www.hg-fix.com/taperecover.htm 数据修复]
 +
[http://www.hg-fix.com/ 磁盘阵列数据修复]

在2005年4月7日 (四) 04:01所做的修訂版本

目錄

DO CASE ... ENDCASE 命令

用途

執行第一個條件運算式的值為真 (.T.) 之下的命令敘述。

語法

DO CASE
CASE lExpression1
[Commands]
[CASE lExpression2
[Commands]]
...
[CASE lExpressionN
[Commands]]
[OTHERWISE
[Commands]]
ENDCASE

參數

CASE lExpression1 Commands ...

  • 當遇到第一個結果為「真」的 CASE 運算式時,就執行位於它之下的命令敘述,一直到它再度遇到下一個 CASE 或 ENDCASE 為止。然後就從 ENDCASE 後面的第一個命令恢復程序的執行。
  • 如果一個 CASE 運算式為「假」(.F.),就忽略它與下一個 CASE 子句之間的命令敘述。
  • 此命令只能執行一組命令,這些命令是 CASE 運算式計算為「真」(.T.)的第一個命令集合,而其他計算為「真」(.T.) 的 CASE 運算式會被忽略。

OTHERWISE Commands

  • 如果所有的 CASE 運算式計算為「假」(.F.),就由 OTHERWISE 確定是否執行一組額外的命令。
    • 如果包含 OTHERWISE,就執行 OTHERWISE 之下的命令敘述,執行後跳到 ENDCASE 後的第一條命令執行。
    • 如果省略了 OTHERWISE,就跳到 ENDCASE 後面的第一條命令處執行。

附註

  • DO CASE 根據邏輯運算式的值執行一組 Visual !FoxPro 命令。當執行 DO CASE 時,先計算它後面的邏輯運算式,運算式的值決定了執行哪一組命令敘述。
  • 可在 DO CASE 和 END CASE 同一列之後放置註釋,在編譯和執行過程中,這些註釋會被忽略。

範例

在下面的範例中,Visual FoxPro 計算每一個 CASE 子句,直到在列表中找到 MONTH 變數為止。在記憶體變數 rpt_title 中存入適當的字串,然後退出 DO CASE 結構。

STORE CMONTH(DATE()) TO month && 本日所在月份

DO CASE && 開始循環 CASE INLIST(month,'January','February','March')    STORE [第一季度收入] TO rpt_title CASE INLIST(month,'April','May','June')    STORE [第二季度收入] TO rpt_title CASE INLIST(month,'July','August','September')    STORE [第三季度收入] TO rpt_title OTHERWISE    STORE [第四季度收入] TO rpt_title ENDCASE && 結束循環 WAIT WINDOW rpt_title NOWAIT 数据恢复 硬盘数据恢复 磁带数据恢复 raid数据恢复 磁盘阵列数据恢复 数据恢复 数据恢复 数据恢复 数据修复 硬盘数据修复 磁带数据修复 raid数据修复 数据修复 数据修复 数据修复 磁盘阵列数据修复