各位大虾，帮我这个菜鸟看看这个程序吧

skttyy 2002-11-19 02:29:43

下面的程序是需要从三个表中查询出有关的字段，组装到densk这个表中，但是结果是只能查询到一条记录，这是为啥? 如何解决！！请帮帮忙
dimension b(58)

select 1
use f:\djwj\dqde.dbf excl
select 2
use f:\djwj\djgt.dbf excl
select 4
use d:\dataup\dataup.dbf excl
select dataup
go top
sele dataup
index on wjdm tag wjdm
set order to wjdm
sele dqde
index on wjdm tag dqde
set order to wjdm
select dataup

do while not eof()
locat for (dataup.wjdm=dqde.wjdm)
if found()
b(1)=djgt.wjdm
?b(1)
b(2)=djgt.nsrmc
b(3)=djgt.swdjh
b(4)=djgt.khyh
b(5)=djgt.zh
b(6)="02"
b(7)="10"
b(8)=date()
b(9)="0000000"
b(10)=year(date())
b(11)=month(date())
b(12)=dqde.sz
b(13)=dqde.ssx
b(14)=dqde.pmmc
if month(date())=1
b(15)=dqde.de01
endif
if month(date())=2
b(15)=dqde.de02
endif
if month(date())=3
b(15)=dqde.de03
endif
if month(date())=4
b(15)=dqde.de04
endif
if month(date())=5
b(15)=dqde.de05
endif
if month(date())=6
b(15)=dqde.de06
endif
if month(date())=7
b(15)=dqde.de07
endif
if month(date())=8
b(15)=dqde.de08
endif
if month(date())=9
b(15)=dqde.de09
endif
if month(date())=10
b(15)=dqde.de10
endif
if month(date())=11
b(15)=dqde.de11
endif
if month(date())=12
b(15)=dqde.de12
endif &&每月定额
b(16)=dqde.sl &&税率
b(17)="0.00"
b(18)=b(15)*b(16) &&应征税款
b(19)=""
b(20)=0.00
b(21)=0.00
b(22)=""
b(23)=""
b(24)=""
b(25)=dqde.ysjc
b(26)=dqde.lsgx
b(27)=djgt.jjnx
b(28)=djgt.sflcss
b(29)=dqde.hyfl
b(30)=djgt.ssks
b(31)=djgt.sspq
b(32)=""
b(33)="杨吉琴"
b(34)="02"
b(35)=""
b(36)=djgt.hyjk
b(37)=""
b(38)=2002092 &&汇总缴款书号
b(39)=""
b(40)=.T.
b(41)="*"
b(42)=""
b(43)=""
b(44)="陈然平"
b(45)=month(date())
b(46)=""
b(47)=""
b(48)=djgt.ssglj
b(49)=djgt.gyzcf
b(50)=djgt.dyjk
b(51)=djgt.zsd
b(52)=djgt.ssxz
b(53)=djgt.zgy
b(54)=alltrim(str(year(date()))+"-"+alltrim(str(month(date())))+"-10")
b(55)=alltrim(str(year(date()))+"-"+alltrim(str(month(date())))+"-25")
b(56)=""
b(57)=""
b(58)=""
select 5
use f:\sbzs\densk.dbf excl
append from array b
continue
endif
enddo

...全文