程序代码：

create cursor b1 (jnh N(2),m1 c(5),m2 c(5))
insert into b1 values (1,"abcad","abcd")
insert into b1 values (2,"adacc","adc")
insert into b1 values (3,"abcb","abc")
insert into b1 values (4,"aababc","abc")

程序代码：

create cursor b1 (jnh N(2),m1 c(10),m2 c(5))
insert into b1 values (1,"abcad","abcd")
insert into b1 values (2,"adacc","adc")
insert into b1 values (3,"abcb","abc")
insert into b1 values (4,"aababc","abc")
scan
    lcStr = ""
    for lnj = 1 to len(alltrim(m1))
        c1 = substr(alltrim(m1), lnj, 1)
        if occurs(c1, lcstr) = 0
            lcstr = lcstr + c1
        endif
    endfor
    replace m2 with lcstr
endscan
browse