在vfp6中 ,如何编程查找某个记录字段数据等于另外几个记录相同字段数据的和
1个回答
展开全部
以下是一个查表中相同字段重复记录的代码,认为字段是字符型的.且会将重复的做删除标记,如果删掉的记录只是以下代码造成的话,可以用RECALL ALL来恢复.
要查文本格式的,建议还是先导到表里面去,入表的代码应该不难写吧.
CLEAR
SET DELETED ON
CLOSE ALL
USE 表名
GO top
SCAN
nFound=0
cfild=ALLTRIM(字段名)
nRec=RECNO()
SKIP
LOCATE FOR ALLTRIM(字段名)==cfild REST
DO whil FOUND()
IF nFound=0
?cfild
ENDIF
nFound=1
DELETE
CONTINUE
ENDDO
GO nRec
ENDSCAN
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
vaela
要查文本格式的,建议还是先导到表里面去,入表的代码应该不难写吧.
CLEAR
SET DELETED ON
CLOSE ALL
USE 表名
GO top
SCAN
nFound=0
cfild=ALLTRIM(字段名)
nRec=RECNO()
SKIP
LOCATE FOR ALLTRIM(字段名)==cfild REST
DO whil FOUND()
IF nFound=0
?cfild
ENDIF
nFound=1
DELETE
CONTINUE
ENDDO
GO nRec
ENDSCAN
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
vaela
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
