求助各位

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

数据库是这个样子的

品种	科目	类型	结果
A	1	Ⅰ	900
A	1	Ⅱ	1000
A	2	Ⅰ	1200
A	2	Ⅰ	500
A	2	Ⅱ	1100
B	1	Ⅰ	600
B	1	Ⅱ	700
B	2	Ⅰ	1200
B	2	Ⅰ	500
B	2	Ⅱ	不详
C	1	Ⅰ	600
C	1	Ⅰ	700
C	1	Ⅱ	1200
C	2	Ⅰ	600
C	2	Ⅱ	1300
C	2	Ⅲ	1100

希望能够形成如下的报表

品种	科目	类型	结果
A	1	Ⅰ	900
		Ⅱ	1000
	2	Ⅰ	1200
			500
		Ⅱ	1100
B	1	Ⅰ	600
		Ⅱ	700
	2	Ⅰ	1200
			500
		Ⅱ	不详
C	1	Ⅰ	600
			700
		Ⅱ	1200
	2	Ⅰ	600
		Ⅱ	1300
		Ⅲ	1100

求大侠们指点，输出成txt、rtf都可以，谢谢哦

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：数据库 RTF txt 输出

data ex;
input
(a b c d)($);
cards;
A        1        Ⅰ        900
A        1        Ⅱ        1000
A        2        Ⅰ        1200
A        2        Ⅰ        500
A        2        Ⅱ        1100
B        1        Ⅰ        600
B        1        Ⅱ        700
B        2        Ⅰ        1200
B        2        Ⅰ        500
B        2        Ⅱ        不详
C        1        Ⅰ        600
C        1        Ⅰ        700
C        1        Ⅱ        1200
C        2        Ⅰ        600
C        2        Ⅱ        1300
C        2        Ⅲ        1100
;
run;
proc sort data=ex out=ex1;
by a b c;
run;

data ex2;
set ex;
by a b c;
if ^first.a then a="";
if ^first.b then b="";
if ^first.c then c="";
run;

1. data test;
   
2.         input pz $ km $  lx $ jg $;
   
3.         label pz='品种' km='科目' lx='类型' jg='结果';
   
4.         cards;
   
5. A        1        Ⅰ        900
   
6. A        1        Ⅱ        1000
   
7. A        2        Ⅰ        1200
   
8. A        2        Ⅰ        500
   
9. A        2        Ⅱ        1100
   
10. B        1        Ⅰ        600
    
11. B        1        Ⅱ        700
    
12. B        2        Ⅰ        1200
    
13. B        2        Ⅰ        500
    
14. B        2        Ⅱ        不详
    
15. C        1        Ⅰ        600
    
16. C        1        Ⅰ        700
    
17. C        1        Ⅱ        1200
    
18. C        2        Ⅰ        600
    
19. C        2        Ⅱ        1300
    
20. C        2        Ⅲ        1100
    
21. ;
    
22. run;
    
23. options nodate nonumber;
    
24. ods rtf file='d:report.rtf' bodytitle;
    
25. ods listing close;
    
26. proc report data=test nowindows;
    
27.         columns pz km lx jg;
    
28.         define pz/order;
    
29.         define km/order;
    
30.         define lx/order;
    
31.         title 'your title';
    
32. run;
    
33. ods rtf close;
    
34. ods listing ;

复制代码

多谢各位，感激涕零！

if ^first.a then a="";
怎么解读，望指点，谢谢！

ziyenano 发表于 2012-12-3 10:12
data ex;
input
(a b c d)($);

if ^first.a then a="";
怎么解读，望指点，谢谢！

ccgcs 发表于 2012-12-3 10:25
if ^first.a then a="";
怎么解读，望指点，谢谢！

如果a不是第一次出现，设置a为缺失值

ziyenano 发表于 2012-12-3 10:29
如果a不是第一次出现，设置a为缺失值

学习了！非常感谢！