data a;
infile datalines;
input ID food1 food2 FU_time yymmdd10. FU_region ;
format fu_time yymmdd10.;
datalines;
1 12 10 2013-3-7  1
2 15 12 2013-4-6  3
3 11 9 2013-1-21  4
4 12 9 2013-4-10  5
5 11 9 2013-5-10  3
6 11 9 2013-2-24  2
7 10 8 2013-5-14  1
8 10 8 2013-6-13  2
9 9 7 2013-3-30  2  
10 9 7 2013-6-17 3
;
run;

data b;
input ingredients $ food1 food2 ;
datalines;
energy 240 150
carbohydrate 120 65
protein 45 35
fat 13 25
;
run;
data e;
input date yymmdd10. d1-d5;
format date yymmdd10.;
datalines;
2013-3-7  15 20 13 25 6
2013-4-6  62 75 26 46 63
2013-1-21 67 80 27 48 68
2013-4-10 72 86 29 51 74
2013-5-10 77 91 30 53 79
2013-2-24 37 47 18 33 35
2013-5-14 42 53 20 36 41
2013-6-13 47 58 21 38 46
2013-3-30 52 64 23 41 52
2013-6-17 57 69 24 43 57
;
run;

data d;
set a; put _all_;
do i=1 to 4;
set b(rename=(food1=food11 food2=food22) drop=ingredients) nobs=nobs point=i;
if i=1 then en=food1*food11+food2+food22;
if i=2 then car=food1*food11+food2+food22;
if i=3 then pro=food1*food11+food2+food22;
if i=4 then fat=food1*food11+food2+food22;
end; put _all_;
array d d1-d5;
do v= 1 to 10;
set e(rename=(date=date1)) nobs=nobs2 point=v;
if fu_time=date1 then
dis=d[fu_region]; put '***' _all_ '***';
end;
keep id food1 food2 fu_time fu_region en car pro fat dis;
run;

非常感谢，空气污染指数数据库变量我定义有点问题，你的是对的，不过第一个问题有点小的笔误
food2+food22
应为
food2*food22

再次感谢！^_^

不知是否熟悉SQL语言，原本以为采用SQL是最简单快捷的方法，没想到数据矩阵的方法也这么简洁。

如果熟悉SQL的话，能否用SQL语言也帮忙解决一下，想看看两种方法哪个更简洁！^_^

哦哦..这个地方..谢谢啦! sql我只是初学, 不是很熟悉, 所以一下子反应不到, 我看看吧. 能够多一种更简洁的方法也是很好的!

再次感谢关注