因為作業需要，查找兩張表中姓名一樣的而且出生日期一樣的學生？
總表是畢業生總表
分表是學生表
我做了表單，但是出點小問題，就是只能查找到姓名一致的學生，如何再進行出生日期的匹配？
在下在的代碼中如何修改一下？
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
uj5u.com熱心網友回復：
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()
if bb.csrq==aa.csrq
repl bb.序號 with ALLTRIM(bb.序號)+','+ALLTRIM(aa.序號)
i=i+1
else
CONTINUE
endif
else
sele 2
repl 標記 with '沒有'
j=j+1
endif
sele 2
skip
enddo
sele 1
use
sele 2
use
?i
我給加上了一些，可是不知道為何像畢業生表中有多個重名的學生有的比對不出來
而且也不會在學生表中加上標記
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/284084.html
標籤：VFP
下一篇：用access實作藥品管理系統