表1和表2 都有一个身份证号字段 假定表1一条记录的身份证号是15位的,而表2的记录是18位,表1和表2这条记录的身份证号都是正确的(15位和18位而已)
在查询表1和表2不匹配记录时,如何让程序认定这条记录是匹配的.
谢谢.

FOR ALLTRIM(表1.身份证)==LEFT(ALLTRIM(表2.身份证),6)+SUBSTR(ALLTRIM(表2.身份证),9,9)

最好先将表1的“身份证号”字段的长度增加3个字节，然后将所有身份证号都置换为18位。根除问题，一劳永逸。

先完成身份证号升位，很重要

在表1增添一个18位身份证号字段，然后统一将所有15位身份证号码转换成18位。因为15位身份证号码早已停止使用了，不转换会影响数据处理的。

送一个身份证号15位转18位的程序：

PARAMETERS cSFZ15
cSFZ15 = ALLTRIM(cSFZ15)
IF LEN(cSFZ15)<>15 AND LENC(cSFZ15)<>15
    RETURN "不是15位身位证号码!"
ELSE
    IF NOT CHRTRAN(cSFZ15,"1234567890","")==""
        RETURN "含有非数字,不是身位证号码!"
    ENDIF
    cSFZ17 = STUFF(cSFZ15,7,0,'19')
    cBy17='7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2'
    cCheck='10X98765432'
    nCheck=0
    FOR nCnt=1 TO 17
        nCheck=nCheck+VAL(SUBSTR(cSFZ17,nCnt,1))*VAL(GETWORDNUM(cBy17,nCnt,','))
    NEXT
    RETURN cSFZ17+SUBSTR(cCheck,nCheck%11+1,1)
ENDIF

学习了。

学习