回复 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