vfpdat75b.dat

程序字典 经典的东西 里面有C、汇编、JAVA的字典

 说明: 语句格式中的<逻辑表达式>称为循环条件， <语句序列>称为循环体。
 ----  
       语句执行时,若DO WHILE子句的循环条件为假循环就结束,然后执行 ENDDO子句后面的语句;为真则执行循环体,         一旦遇到 ENDDO就自动返回到 DO WHILE重新判断条件是否成立，以决定是否继续循环。

	例：试编一程序，显示SB.DBF中所有单价超过10000元的设备名称。 

	USE sb
	DO WHILE NOT EOF()
      		IF 价格>10000
          		 ?名称
     	 	ENDIF
     	 	SKIP
	ENDDO
	USE


        例：9万元以上，1-9万元，1万元以下三级价格分档统计SB.DBF中设备的个数。

	STORE 0 TO k1,k2,k3
	USE sb
 	DO WHILE NOT EOF()
    		DO CASE 
		CASE 价格>90000
			K1=K1+1
		CASE 价格<10000
			K3=K3+1
	        OTHERWISE
	        	K2=K2+1
	    ENDCASE
	    SKIP
	ENDDO
	?:9万元以上设备个数:"+STR(K1)
	?1~9万元的设备个数:"+STR(K2)
	?"1万元以下的设备个数:+STR(K3)