[此贴子已经被作者于2015-10-26 18:37编辑过]

程序代码：

CREATE CURSOR 表1 (序号 I, 结果 V(5))
INSERT INTO 表1 VALUES(1, "05601")
INSERT INTO 表1 VALUES(2, "47896")
INSERT INTO 表1 VALUES(3, "81222")
INSERT INTO 表1 VALUES(4, "48068")
INSERT INTO 表1 VALUES(5, "54969")
CREATE CURSOR 表2 (序号 I, 结果 V(3))
INSERT INTO 表2 VALUES(1, "005")
INSERT INTO 表2 VALUES(2, "048")
INSERT INTO 表2 VALUES(3, "128")
INSERT INTO 表2 VALUES(4, "379")
INSERT INTO 表2 VALUES(5, "468")

SELECT 表2
SCAN
    不包含 = .T.
    SELECT 表1
    SCAN
        IF LIKE(转换表2(表2.结果), 转换表1(表1.结果))
            不包含 = .F.
            EXIT
        ENDIF
    ENDSCAN
    IF 不包含
        ? "不包含", 表2.结果
    ENDIF
ENDSCAN

FUNCTION 转换表1(S1)
    LOCAL i, aS1[LEN(S1)]
    FOR i = 1 TO ALEN(aS1)
        aS1[i] = SUBSTR(S1, i, 1)
    ENDFOR
    ASORT(aS1)
    S1 = ""
    FOR i = 1 TO ALEN(aS1)
        S1 = S1 + aS1[i]
    ENDFOR
    RETURN S1
ENDFUNC

FUNCTION 转换表2(S2)
    LOCAL i, aS2[LEN(S2)]
    FOR i = 1 TO ALEN(aS2)
        aS2[i] = SUBSTR(S2, i, 1)
    ENDFOR
    ASORT(aS2)
    S2 = "*"
    FOR i = 1 TO ALEN(aS2)
        S2 = S2 + aS2[i] + "*"
    ENDFOR
    RETURN S2
ENDFUNC