IF...ENDIF 命 令

根据逻辑表达式值 有选择地执行一组命令

语 法

IF lExpression [THEN]

Commands

[ELSE

Commands ]

ENDIF

参 数 描 述

lExpression

指 定 要 计 算 的 逻 辑 表 达 式 如 果 lExpression 的 计 算 结 果 为 真 .T . 则执 行 IF 语 句 之 后 ELSE 或 ENDIF 语 句 以 先 出 现 的 语 句 为 准 之 前 的 所有 命 令

• 如

  果 lExpression 为 假 .F. 而 且 包 含 ELSE 语 句 则 执 行 ELSE 语 句之 后 ENDIF 语 句 之 前 的 所 有 命 令

• 如

  果 lExpression 为 假 .F. 但 不 包 含 ELSE 语 句 则 忽 略 IF 语 句 和ENDIF 之 间 的 所 有 命 令 在 这 种 情 况 下 程 序 从 ENDIF 语 句 后 面 的 第 一条 命 令 开 始 继 续 往 下 执 行

说 明

一个 IF...ENDIF 语句块之中可以嵌套另一个 IF...ENDIF 语句块

注释可以放在 IF ELSE 和 ENDIF 所在行的后面 在编译和执行时 程序将忽略这些注释

示 例

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'Data\testdata') USE Customer && 打开 customer 表

GETEXPR 'Enter condition to locate ' TO gcTemp; TYPE 'L' DEFAULT 'COMPANY = ""'

LOCATE FOR &gcTemp && 输入 LOCATE 表达式

FOUND && 是否找到 ?

DISPLAY && 是 显示记录

&& If not found

? 'Condition ' + gcTemp + ' was not found ' && 显示相应信息

USE

请 参 阅

DO CASE...ENDCASE, DO WHILE...ENDDO, FOR...ENDFOR, IIF , SCAN...ENDSCAN