Question

vfp 判断数值重复并按条件去掉

如图，dbf中有部分spdm字段的数据是重复的。
我要将spdm中重复的，且edate是01/01/99的去掉。
这个怎么写代码？

Answer 1

set date ansi &&设置日期格式为ansi，即1999.01.01这种格式
delete from 表名 where edate={^1999.01.01} and spdm in (select spdm from 表名 where edate<>{^1999.01.01})

select 表名
browse

Answer 2

按SPDM排序
LOCAL LCSPDM
LCSPDM = ''
SCAN
IF LCSPDM <> SPDM
LCSPDM = SPDM
LOOP
ENDIF

IF edate是01/01/99
DELETE
ENDIF
ENDSCAN