回复 27楼 sdta
非常感谢您的回复,版主不易啊!膜拜!我得 去睡觉了,明天再来请教!

local a,b,i,num sele 1 b=thisform.text1.value use &b alias bb sele 2 a=thisform.text2.value use &a alias aa i=0 j=0 sele 2 do while .not.eof() ly=xm sele 1 locate for xm=ly if found() repl bb.序号 with ALLTRIM(bb.序号)+','+ALLTRIM(aa.序号) i=i+1 CONTINUE else sele 2 repl 标记 with '没有' j=j+1 endif sele 2 skip enddo sele 1 use sele 2 use ?i