回复 10楼 sdta
辛苦了,谢谢!
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编辑过]