辛苦了，谢谢！

b1每条记录的m包含（或不包含）b2所有记录的m（或m1,m2）

create cursor b1 (m c(6))
insert into b1 values ("152")
insert into b1 values ("146")
insert into b1 values ("543")
insert into b1 values ("1654")
insert into b1 values ("54136")

create cursor b2 (m c(2))
insert into b2 values ("3")
insert into b2 values ("2")
在b1中删除不包含有b2所有记录的字符
如"152"中含有"2",不删除
"543"中含有"3"，不删除
"146"不含b2所有记录，删除
最后结果为："152"，"543","54136"的记录
删除"146"，"1654"的记录

是这样的话，参考2、3楼应该好理解，也可以不用DELETE，直接取出所要的数据

如何取出不包含b2字符的数据？请指点！
因为b1和b2的记录都多
b1有近10万多条数据

[此贴子已经被作者于2020-9-8 17:54编辑过]

10多万条不算多
试试这样可否满足要求

create cursor b1 (m c(6))
insert into b1 values ("152")
insert into b1 values ("146")
insert into b1 values ("543")
insert into b1 values ("1654")
insert into b1 values ("54136")

create cursor b2 (m c(2))
insert into b2 values ("3")
insert into b2 values ("2")

SELECT m FROM b2 INTO ARRAY a2
SELECT * FROM b1 WHERE fun(m)
RETURN

FUNCTION fun(m)
    FOR i=1 TO ALEN(a2)
        IF AT(ALLTRIM(a2[i]),m) > 0
            RETURN .F.
        ENDIF
    ENDFOR
    RETURN .T.
ENDFUNC

[此贴子已经被作者于2020-9-8 21:23编辑过]

上传所有数据看看

谢谢两位版主 ！！

其实也可以这样操作：
复制b1为b3
用2楼的办法删除包含相同字符的记录
再在b3中删除上面保留的记录
语句也只有两名，也避免了b1因数据量大编程费时间的问题.
再次感谢两位老师!!!