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

[skttyy]

下面的程序是需要从三个表中查询出有关的字段，组装到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

[zhjame]

说说你到底要完成什么功能吧？

[zhjame]

如果要从其他表中撮数据，用 sql要方便得多啊。

[newfang]

这么麻烦的程序……先简单说一下咋回事吧！！！

[soaringsouth]

我看好像这样能实现，select a.X,b.X,c.X from a ,b ,c where a.z=b.a and b.d=c.g foxpro就是麻烦，还是sql简单

[flyingpigs]

这么多行代吗,一行一毛钱,该是多少....?

[magnetmoon]

为什么不用sql语句?
select ... from ... into cursro/table ...
然后想怎么处理就怎么处理