このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1274791771/386
#  ・DBMS名とバージョン 
#    SQL Server Compact 3.5 
#   
#  ・テーブルデータ 家計簿のようなデータです 
#  Cd1 Cd2  Item      Cost 
#  ---+----+-----------+---------------- 
#  1   0    食費      NULL 
#  1   1    弁当      500 
#  2   0    光熱費     NULL 
#  2   1    水道料     1000 
#  2   1    水道料     2000 
#  2   2    ガス料     4000        
#   
#  ・欲しい結果 
#  Cd1 Cd2  Item      Sum 
#  ---+----+-----------+---------------- 
#  1   0    食費      500 
#  2   0    光熱費    7000 
#   
#  ・説明 
#  Cd1が大分類、Cd2が中分類を表してます。 
#  Cd2が0の場合、Itemは大分類の名称。それ以外の場合、中分類の名称が入ってます。 
#  大分類ごとにItemと合計額が欲しいです。 
#   
# 
# 

大分類ごとにItemと合計額が欲しい :-
        findsetof([_Cd1,_Item],家計簿(_cd1,0,_Item,_),L1),
        member([_Cd1,_Item],L1),
        findsum(_Cost,(家計簿(_Cd1,_Cd2,_,_Cost),\+(_Cd2=0)),_Sum),
        write_formatted('%t %t %t %t\n',[_Cd1,0,_Item,_Sum]),
        fail.
大分類ごとにItemと合計額が欲しい.