【vfp开源代码栏目提醒】:网学会员--在 vfp开源代码编辑为广大网友搜集整理了:createtype.PRG绩等信息,祝愿广大网友取得需要的信息,参考学习。
SET TALK OFF
SET SAFETY OFF
SELECT A
USE prodtype
INDEX ON 物品类型 TO mytype
SET INDEX TO mytype &&打开索引文件
hType=A.物品类型 &&保存当前物品类型
Kg="Y" &&设置循环变量
DO WHILE Kg="Y" &&循环
SKIP &&向下移动表指针
IF EOF() &&到表尾
Kg="N"
ELSE
IF 物品类型==hType &&物品类型没有改变
DELETE
ELSE &&物品类型改变
hType=物品类型
ENDIF
ENDIF
ENDDO
PACK
CLOSE ALL &&关闭表
RETURN