DO CASE ... ENDCASE 命令示例

在下面的示例中，Visual FoxPro 计算每一个 CASE 子句，直到在列表中找到 MONTH 变量为止。在内存变量 rpt_title 中存入适当的串，然后退出 DO CASE 结构。

STORE CMONTH(DATE( )) TO month && 今天的月份

DO CASE 可在此放置注释

CASE INLIST(month，'January'，'February'，'March')
STORE 'First Quarter Earnings' TO rpt_title

CASE INLIST(month，'April'，'May'，'June')
STORE 'Second Quarter Earnings' TO rpt_title

CASE INLIST(month，'July'，'August'，'September')
STORE 'Third Quarter Earnings' TO rpt_title

OTHERWISE
STORE 'Fourth Quarter Earnings' TO rpt_title
ENDCASE 或在此放置注释

WAIT WINDOW rpt_title NOWAIT