Chinaunix

标题: [求教]如何将一个表中的数据，每50条记录导出生成一个文件 [打印本页]

作者: cnfun 时间: 2004-01-14 11:31
标题: [求教]如何将一个表中的数据，每50条记录导出生成一个文件
请教，
如何将一个表中的数据，每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

作者: czw1413_cn 时间: 2004-01-14 12:12
提示: 作者被禁止或删除内容自动屏蔽

作者: cnfun 时间: 2004-01-14 12:18
标题: [求教]如何将一个表中的数据，每50条记录导出生成一个文件
谢谢回复！
呵呵，所有记录在一页中，然后每50条记录生成一页。
我就是在excel中不知道该如何处理，才想到这么处理的，
楼上的教教我如何在excel中处理，谢谢了！

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)