表如下：
m1    m2
acba  
ab    dackh

问题：
1、如何查找‘acba'有重复字符‘a’?
2、如何查找'ab'在‘dackh’中有重复字符?
谢谢！

[此贴子已经被作者于2020-2-6 10:11编辑过]

OCCURS()>1

谢谢回复
但OCCURS()>1是用于occurs('a','acba'),
但在程序中，我要的是逐记录比较，如第一条记录中字段m1的值是否有重复字符,第二条记录字段m1在m2中是否的重复字符.
这应如何处理？

[此贴子已经被作者于2020-2-6 10:50编辑过]

上传表看看

以这个为准

[此贴子已经被作者于2020-2-6 11:52编辑过]

不明白楼主的意思

以重发表为准
m1w、m2w、m3w两两之间，有一个字符相同

[此贴子已经被作者于2020-2-6 12:05编辑过]

CLOSE DATABASES 
USE szpt
BLANK FIELDS _12重复, _13重复, _23重复, 说明 ALL 
SCAN
    c1 = ALLTRIM(M1w)
    c2 = ALLTRIM(M2w)
    c3 = ALLTRIM(M3w)
    LOCAL b[3]
    b = ""
    csm = "重复"
    b[1] = CHRTRAN(c2,CHRTRAN(c2, c1, ""), "")
    IF NOT EMPTY(b[1])
        REPLACE _12重复 WITH "_12重复"
    ENDIF 
    b[2] = CHRTRAN(c3,CHRTRAN(c3, c1, ""), "")
    IF NOT EMPTY(b[2])
        REPLACE _13重复 WITH "_13重复"
    ENDIF 
    b[3] = CHRTRAN(c3,CHRTRAN(c3, c2, ""), "")
    IF NOT EMPTY(b[3])
        REPLACE _23重复 WITH "_23重复"
    ENDIF 
    FOR i = 1 TO 3
        IF NOT b[i] $ csm
            csm = csm + b[i]
        ENDIF 
    ENDFOR 
    IF LEN(csm) > 4
        REPLACE 说明 WITH csm
    ENDIF 
ENDSCAN
GO TOP 
BROWSE 

[此贴子已经被作者于2020-2-6 13:03编辑过]

高明，CHRTRAN的应用的典范，学习了。

谢谢！