回复 30楼 sdta
我不是这样的目的可能您还没有明白我的意思
我是想找到两张表中相同字段的相同记录
是要找到学生表中的姓名在毕业生总表中出现的位置,不是找到重复的次数
SELECT 0 USE 学生表 ALIAS a BLANK FIELDS 标记 ALL SELECT 0 USE 毕业生总表 ALIAS b BLANK FIELDS 序号 ALL INDEX on 序号+xm TAG 序号_xm n = FSIZE("序号","b") SELECT a SET RELATION TO SPACE(n)+xm INTO "b" SCAN IF FOUND("b") REPLACE b.序号 WITH PADL(a.序号,n," ") IN "b" ELSE REPLACE a.标记 WITH "没有" IN "a" ENDIF ENDSCAN SELECT 序号,xm FROM b WHERE !EMPTY(序号) ORDER BY xm SELECT 标记,xm,序号 FROM a ORDER BY xm
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