data test;
input customer $   fruit $       qty     date : yymmdd8.;
cards;
001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
001        pear        15     20120222     
001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
003        apple       32     20120213     
003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616
;

proc sql;
   create table test1 as
    select distinct l.customer, l.fruit,r.fruit as fruit1
          from test as l, test as r
          where l.customer=r.customer and l.date=r.date;

   create table test2 as
     select distinct fruit,fruit1,count(*) as number
          from test1
          group by fruit,fruit1;

   create table all as
    select *
        from (select distinct fruit from test),
             (select distinct fruit as fruit1 from test);
quit;

data test2;
    merge all test2;
        by fruit fruit1;
        if missing(number) then number=0;
run;

proc transpose data=test2 out=test3(drop=_name_);
    by fruit;
        id fruit1;
        var number;
run;

提个建议哈，1.把你的问题设置成悬赏帖，估计应者会有几个。2.你的水果组合里是每种水果就一个还是可以有很多种。还有就是2苹果+1梨和2苹果+2梨是不是可视为同一组合。3.你的水果组合表是分顾客制表吧？4.最后，你想要的是什么：算法？你提供数据，想请人分析结果？

ding

感谢 POBEL ， 你已经连续回复我好几个求助程序的帖子。活雷锋！！！
我会将验证结果回复给你。
再次衷心感谢！ 下次我要将帖子设置为有奖励的。不然觉得有点儿对不住您

你的建议很好。以后我请教的帖子尽量设置为 悬赏帖。
以后每天登录，攒经验，换money