| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 921 人关注过本帖
标题:请教如何根据表数量,输出相应报表
只看楼主 加入收藏
fgk
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-7-22
收藏
得分: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
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
基础不扎实!
建议先弄清楚scan....endscan的作用,再考虑是否需要使用for...endfor循环。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2015-04-29 19:53
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分: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
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-7-22
收藏
得分: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
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-7-22
收藏
得分:0 
回复 12楼 hu9jj
hu9jj大师所言极是,但我相信每个人都是在不断学习中成长的,谢谢!
2015-04-29 21:05
muyubo
Rank: 9Rank: 9Rank: 9
来 自:山东莱芜
等 级:蜘蛛侠
威 望:3
帖 子:471
专家分:1017
注 册:2011-3-6
收藏
得分: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
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
以下是引用muyubo在2015-4-29 21:29:29的发言:


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

猜楼主的意思是每页只打印表的一个记录,有多次打印同一个记录的就“锁定”记录。
2015-04-29 22:09
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分: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
Rank: 9Rank: 9Rank: 9
来 自:山东莱芜
等 级:蜘蛛侠
威 望:3
帖 子:471
专家分:1017
注 册:2011-3-6
收藏
得分: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
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-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
快速回复:请教如何根据表数量,输出相应报表
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024573 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved