Visual Foxpro中的if...endif语句

在VF中，IF...ENDIF语句是一个逻辑判断语句，其根据一逻辑表达式的值，有条件的执行一组命令。其语法格式如下：

IF   逻辑表达式   [THEN]
   程序组1
[ELSE
   程序组2]
ENDIF

语法中的逻辑表达式代表一逻辑值，如果这逻辑值为真，系统执行程序组1，否则不执行程序组1，如果有else及程序组2的话，则执行程序组2，如没有则什么也不执行，直接执行endif后面的语句。

在if...endif之间还可以有if...endif，即该语句是可以嵌套的。then可以有也可以没有，对程序没有影响。

else及程序组2可以有也可以没有，但如果有的话，在逻辑表达式的值为假时，程序组2将被执行。

if 与 endif 必须配对使用，即有一个 if 必须有一个 endif， 否则程序会出错。

下面给出一个例子来说明使用方法：

假如分数字段的值大于等于90，则让等级字段的值为“优”，并显示该记录。程序如下：

if  分数 >= 90
     replace 等级 with '优'
     display
endif

再给一个例子：

在数据库中可以把性别字段设为逻辑型，“真”代表“男”，“假”代表“女”，但显示时不能显示真、假，否则别人看不懂，而应显示男、女，因此我们设一变量xb，根据性别字段的具体值，将xb的值设为男或女，然后在需要的时候显示xb的值即可。可编辑程序如下：

if   性别 
     xb='男'
else
     xb='女'
endif

其中第一句：if 性别，表示“假如性别为真”的意思，不要写成“if 性别=.t.”。

以上程序也可以写成如下形式，效果相同：

if .not. 性别
    xb='女'
else
    xb='男'
endif

即，假如性别不为真的话，xb的值就为女，否则为男。