不知道此程序为什么循环不了～～～～急盼～～～～！
q=100
SELECT A01
SET ORDER TO PERS_CODE
go top
do while .not.eof()
PUB_PERS=PERS_CODE
***********************************
SELECT A08
SET ORDER TO PERS_CODE
SET FILT TO A08.pers_code==PUB_PERS
if .not.eof()
scan
q=min(q,val(left(a08.a0801,1)))
endscan
select * from a08 where A08.pers_code=PUB_PERS.and.val(left(a08.a0801,1))=q into cursor zc
IF USED("z08")
SELECT z08
USE
ENDIF
USE z08 ALIAS z08 IN 0 SHARED
append from dbf('zc')
endif
**************************************
skip
enddo
问题点数：100、回复次数：7Top
1 楼fly1007（飞）回复于 2005-05-10 11:19:30 得分 0
SELECT A01
SET ORDER TO PERS_CODE
go top
do while .not.eof()
q=100
PUB_PERS=PERS_CODE
***********************************
SELECT A08
SET ORDER TO PERS_CODE
SET FILT TO A08.pers_code==PUB_PERS
if .not.eof()
scan
q=min(q,val(left(a08.a0801,1)))
endscan
select * from a08 where A08.pers_code=PUB_PERS.and.val(left(a08.a0801,1))=q into cursor zc
IF USED("z08")
SELECT z08
USE
ENDIF
USE z08 ALIAS z08 IN 0 SHARED
append from dbf('zc')
endif
**************************************
skip
enddo
Top
2 楼apple_8180（十豆三）回复于 2005-05-10 11:25:57 得分 100
在
SKIP
前加
SELECT A01Top
3 楼fly1007（飞）回复于 2005-05-10 11:30:24 得分 0
我调试了 一下，的确是的。真是十分感谢。
apple_8180(十豆三)，我 想问问，是不是在selectA08之后的系统就把A01给自动关闭了哈～～～？Top
4 楼YuyuanJian（江西人在东莞(http://www.ganjiangren.com/bbs/index.asp)）回复于 2005-05-10 11:39:27 得分 0
来晚了,Top
5 楼apple_8180（十豆三）回复于 2005-05-10 11:41:41 得分 0
不是，只是当前工作区不在 A01
所以循环不了。Top
6 楼nwen（能文）回复于 2005-05-10 11:56:55 得分 0
是哦
Top
7 楼fly1007（飞）回复于 2005-05-10 13:05:36 得分 0
哦～好的！谢谢哈～～给分了哈
Top
