请教如何根据表数量，输出相应报表 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教如何根据表数量，输出相应报表

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 921 人关注过本帖

标题：请教如何根据表数量，输出相应报表

只看楼主加入收藏

fgk

等　级：新手上路
帖　子：28
专家分：0
注　册：2006-7-22

第 11 楼

得分:0

回复 9楼 muyubo

我测试的代码如下，报表预览窗口关一个出来一个，死循环了，而且达不到预期的效果，请指正，谢谢！
SELECT rmTemp
SCAN
    t_num = rmTemp.t_quantity
    FOR i=1 TO t_num
        REPORT FORM frx\frxtest.frx PREVIEW
    ENDFOR
ENDSCAN

我想达到的效果是，例如主楼的表数量一共是4，出现的报表分别是
第一份报表显示
aaa

第二份报表显示
bbb

第三份报表显示
bbb

第四份报表显示
ccc

2015-04-29 19:36

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11857
专家分：43421
注　册：2006-5-13

第 12 楼

得分:0

基础不扎实！
建议先弄清楚scan....endscan的作用，再考虑是否需要使用for...endfor循环。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2015-04-29 19:53

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43186
注　册：2014-5-20

第 13 楼

得分:10

SCAN
    nRecn = RECNO()
    FOR i = 1 TO rmTemp.t_quantity
        GO nRecn
        REPORT FORM frx\frxtest.frx NEXT 1 PREVIEW
    ENDFOR
ENDSCAN

[ 本帖最后由吹水佬于 2015-4-29 20:43 编辑 ]

2015-04-29 20:42

fgk

等　级：新手上路
帖　子：28
专家分：0
注　册：2006-7-22

第 14 楼

得分:0

回复 13楼吹水佬

谢谢大师，在你提供的代码前加了两行，成功了,受益非浅，非常感谢！
SELECT rmTemp
GO TOP
SCAN
    nRecn = RECNO()
    FOR i = 1 TO rmTemp.t_quantity
        GO nRecn
        REPORT FORM frx\frxtest.frx NEXT 1 PREVIEW
    ENDFOR
ENDSCAN

2015-04-29 21:01

fgk

等　级：新手上路
帖　子：28
专家分：0
注　册：2006-7-22

第 15 楼

得分:0

回复 12楼 hu9jj

hu9jj大师所言极是，但我相信每个人都是在不断学习中成长的，谢谢！

2015-04-29 21:05

muyubo

来　自：山东莱芜
等　级：蜘蛛侠
威　望：3
帖　子：471
专家分：1017
注　册：2011-3-6

第 16 楼

得分:0

以下是引用吹水佬在2015-4-29 20:42:38的发言：

SCAN
    nRecn = RECNO()
    FOR i = 1 TO rmTemp.t_quantity
        GO nRecn
        REPORT FORM frx\frxtest.frx NEXT 1 PREVIEW
    ENDFOR
ENDSCAN

for循环对记录指针有影响吗?锁定记录的意义是什么?

2015-04-29 21:29

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43186
注　册：2014-5-20

第 17 楼

得分:0

以下是引用muyubo在2015-4-29 21:29:29的发言：

for循环对记录指针有影响吗?锁定记录的意义是什么?

猜楼主的意思是每页只打印表的一个记录，有多次打印同一个记录的就“锁定”记录。

2015-04-29 22:09

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43186
注　册：2014-5-20

第 18 楼

得分:0

以下是引用muyubo在2015-4-29 21:29:29的发言：

for循环对记录指针有影响吗?锁定记录的意义是什么?

SCAN
    FOR i = 1 TO rmTemp.t_quantity
        REPORT FORM frx\frxtest.frx NEXT 1 PREVIEW
    ENDFOR
ENDSCAN
这样应该就可以，REPORT FORM 已经控制在 NEXT 1 范围

2015-04-29 22:15

muyubo

来　自：山东莱芜
等　级：蜘蛛侠
威　望：3
帖　子：471
专家分：1017
注　册：2011-3-6

第 19 楼

得分:0

SCAN
    FOR i = 1 TO rmTemp.t_quantity  &&我的理解是每条记录打印的次数是由rmTemp.t_quantity决定
        REPORT FORM frx\frxtest.frx NEXT 1 PREVIEW
    ENDFOR
ENDSCAN

楼主说的死循环?

[ 本帖最后由 muyubo 于 2015-4-29 22:27 编辑 ]

2015-04-29 22:25

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43186
注　册：2014-5-20

第 20 楼

得分:0

以下是引用muyubo在2015-4-29 22:25:28的发言：

SCAN
    FOR i = 1 TO rmTemp.t_quantity  &&我的理解是每条记录打印的次数是由rmTemp.t_quantity决定
        REPORT FORM frx\frxtest.frx NEXT 1 PREVIEW
    ENDFOR
ENDSCAN

楼主说的死循环?

观察一下有什么不同，为何会出现“楼主说的死循环”
GO 2
REPORT FORM frx\frxtest.frx PREVIEW
? RECNO()
GO 2
REPORT FORM frx\frxtest.frx NEXT 1 PREVIEW
? RECNO()

2015-04-29 23:05

快速回复：请教如何根据表数量，输出相应报表