免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1745 | 回复: 2
打印 上一主题 下一主题

[求教]如何将一个表中的数据,每50条记录导出生成一个文件 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2004-01-14 11:31 |只看该作者 |倒序浏览
请教,
如何将一个表中的数据,每50条记录导出生成一个文件,
每个文件的文件名定义为
"GDCL" clipped,起始条编号,终止条编号,".csv"

表中有一字段tm_count为记录编号,

以下是我的处理程序,在表记录小于50条时,可以正常导出,但是如果大于50条,文件能生成,但是,每个文件(包括第一个文件)都是空的,没有记录,各位帮忙看看错在哪儿,谢谢了!!

MAIN
..........
FOR s = 1 to i
                LET ss = s * 50 - 49  //起始记录编号
                LET se = s * 50  //终止记录编号
                DISPLAY "数据范围", ss, "至", se at 16,13
                LET lv_qs = "GDCL" clipped, ss CLIPPED,se  CLIPPED,".csv"  //生成的文件名
                               
        START REPORT rep_gdcl TO lv_qs
        DECLARE rep_cur CURSOR FOR
                SELECT * FROM tmp_gdcl
                        where tm_count >;= ss and tm_count <=se
        FOREACH rep_cur INTO l_gdcl.*
                OUTPUT TO REPORT rep_gdcl(l_gdcl.*)
        END FOREACH
        CLOSE rep_cur
        FREE rep_cur
        FINISH REPORT rep_gdcl
        end for

..........
END MAIN


REPORT rep_gdcl(l_gdcl)
DEFINE l_gdcl RECORD
        tm_count int,
        t_1 date,
        t_2 date,
        t_3 char(20),
        t_4 char(20),
        t_5 char(120),
        t_6 char(20)
END RECORD        

        OUTPUT
        LEFT MARGIN 0
        TOP MARGIN 0
        PAGE LENGTH 100
        BOTTOM MARGIN 0

    FORMAT
        on every row
             
                        PRINT l_gdcl.tm_count ,",",                 
                                l_gdcl.t_1 ,",",
                                l_gdcl.t_2 ,",",
                                l_gdcl.t_3 ,",",
                                l_gdcl.t_4 ,",",         
                                l_gdcl.t_5 ,",",
                                l_gdcl.t_6 ,","
                         
END REPORT

论坛徽章:
0
2 [报告]
发表于 2004-01-14 12:12 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
0
3 [报告]
发表于 2004-01-14 12:18 |只看该作者

[求教]如何将一个表中的数据,每50条记录导出生成一个文件

谢谢回复!
呵呵,所有记录在一页中,然后每50条记录生成一页。
我就是在excel中不知道该如何处理,才想到这么处理的,
楼上的教教我如何在excel中处理,谢谢了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP