【vfp开源代码栏目提醒】:网学会员,鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“caltype.prg”一文,供大家参考学习!
SET TALK OFF
SET EXACT OFF
SELECT A
USE prodtype
COPY TO ARRAY myArray fields typename FOR typeid=0
SELECT A
USE 物品
FOR EACH myVar IN myArray
SET FILTER TO 物品类型=ALLTRIM(myVar) &&过滤记录
hMax=0 &&最大数初值
hMin=999999 &&最少数初值
SCAN
IF 数量>hMax &&当前库存数比保存数大
hMax=数量
hName1=物品名称
ENDIF
IF 数量<hMin &&当前库存数比保存数小
hMin=数量
hName2=物品名称
ENDIF
ENDSCAN
? "物品类型=",myVar
? "库存最多的是:",hName1," 数量为:",hMax
? "库存最少的是:",hName2," 数量为:",hMin
SET FILTER TO &&取消过滤
ENDFOR
CLOSE ALL &&关闭表
RETURN