以下是引用sharpex1在2024-4-26 17:52:13的发言：

无耻求代码

程序代码：

USE 号码归属客户判断 ALIAS tt1 IN 0
USE 号码归属客户判断 ALIAS tt2 AGAIN IN 0
SELECT tt1
INDEX on 身份证id+地址+在用app TAG tag1
SELECT tt2
SET RELATION TO 身份证id+地址+在用app INTO "tt1"
SCAN 
    IF FOUND("tt1") AND RECNO("tt1")!=RECNO("tt2") AND !EMPTY(tt2.在用app) && 假设空视为无效
        ? RECNO("tt1"),tt1.身份证id,tt1.地址,tt1.在用app     && >0.5视为重复记录
        ? RECNO("tt2"),tt2.身份证id,tt2.地址,tt2.在用app
        ?
    ENDIF
ENDSCAN